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From the people 
who brought you... 
BUSINeSSPAH+ acr M 


Five NEW programs 
designed for the 
businessperson. 


Each on its own cassette 
with interesting manual. 







hint with softwere for the Model tab 


You have made BUSINESSPAK+ an over- TYPE+ $59.95 SORT2+ $29.95 
whelming success! Now, we are introducing The Model 100 now becomes, with the addition You can sort a file in place with SORT2*. It 
five new programs for the Model 100. of any printer, the finest, most feature rich, consumes only 1k free memory, while sorting file 
PCSG continues to be first in innovative electronic typewriter available today. You can in RAM you entered with PUT+ or DATA+. Our 
P А М type directly to the paper, (Some printers have original SORT+ allows you to sort from cassette, 
programming for the businessperson using a one line buffer.) but requires more memory while sorting. SORT2+ 
the TRS-80 Model 100 Computer. SCREEN BUFFER / To allow you to edit before is for those times when memory or cassette sorting 
Look at these five new programs. printing, you can control the screen buffer from is a problem. SORT2+ also has upper case fold, 
1 character to the last line, and true numeric field sort. Оп cassette with 
CENTER / Center on / center off controlled excellent, easy to understand manual. 
DATA+ $59.95 with function keys. 
With DATA+ the Model 100 becomes virtually a MARGINS / Set margins with function keys. TENKY+ $59.95 


Audible end of carriage, automatic carriage 


true data base. You can input data rapidly from k 
р BY return and function key Tab Set. 


With TENKY * the numeric keypad on your Model 


a 16 field screen that you make yourself like our 100 emulates both a ten-key desk calculator, and a 
PUT+. Here is the difference: DIRECT CONTROL / If your printer responds to financial calculator. The nd аве? the screen 
REVIEW / Using function key 1 you can recall backspace commands, you can backspace and represents the tape, which can also be directed to 
any record, by searching any field. overstrike. Paper advances with carriage return. | 4 file and/or a printer, Ten working registers are 
EDIT / Change or update any record you select, | With TYPE*, everything you print is stored visible on the left of the screen, each one function- 
instantly on the screen, simultaneously in a RAM file, formatted as you ing independently as a calculator with functions 
LIST / Using function key 5 you can print add- composed it, You can reprint instantly, or edit including exponentiation and logarithms. Registers 
ress labels, list records or selected fields of records ‘tin the file, On cassette with excellent, easy are accessible from each other, including the tape 
in columns or other configurations, You can to understand manual. which stores up to 120 values, each associated with 
even pause, and reset left margins. a note of up to 26 characters. 

MERGE / Function key 6 lets you merge. You TUTOR+ $29.95 Financial functions available at the touch of a 


can automatically print any fields of any records 


Learn keyboard skills by playing a delightfully Key include IRR, MIRR, and NPV on up to 120 
into forms or letters, wherever you designate. 


exciting game. While experiencing the thrills of | Cash flows, plus any of its six annuity variables 


With all four of these functions you have full a space invaders type game you become profic- (n, PV, FV, PMT, i). Function key F2 gives a 

search and selection capability. ient at manipulating the keyboard, A game that Printed amortization schedule, and businessmen 
With LIST and MERGE DATA+ remembers forces you to learn touch typing, utilizing all will love the breakeven analysis they can receive 

your favorite formats, quickly defaulting to them the keys, On cassette with excellent, easy to simply by pressing function key F1. 

by simply pressing the ENTER key. The added understand manual. 

feature BUILD lets you build and print a file of Portable Computer Support Group is 

E a a PCSG provides hotline software support pleased to offer these program additions, 
On cassette with excellent, easy to understand for the Model 100. Give us a call at We endeavor to continue as The Leaders in 

manual. 1-214-351-0564. Software for the Model 100. 


тне во Model 100 is a FORIABLE COMPUTER ВОКТ ОВО Р 


trademark ої Тапау Corporation 
©1983 Portable Computer Support Group 11035 Harry Hines Blvd. No. 207, Dallas, TX 75229 


MASTERCARD / VISA / COD 


From Computer Plus to YOU... 


PLUS after PLUS after PLUS 


49 
Model 100 8K $679 Color Computer II 46K 5135 iar a B 


Model 100 24K $835 wit6K Ext. Basic 5465 | 
wl64K Ext. Basic 5240 2 Disk & RS232 $1699 


DMP420 $395 Color Computer Disk Drive DWP210 $629 
DMP200 $520 Drive 0 $329 Drive 1 $235 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS PRINTERS Model 11/4 Drive 2 289 
Model 4 Portable Silver Reed EXP500 D.W. 425 Model 11/4 Drive 3 259 

64K 2 Drives Silver Reed EXP550 D.W. 575 Primary Hard Disk M12 2689 
Pocket Computer 2 Daisy Wheel II 1745 Primary Hard Disk MIII 1799 
Pocket Computer 3 DWP410 1159 ETC. 
Pocket Computer 4 DWP210 629 CCR-81 Recorder 52 
Model 2000 2 Drive CGP115 159 Cassette Tapes (10 Pk) 9.95 
Model 2000 WiHard Disk CGP220 Ink Jet 545 16K Ram Chips 25 
Model 12 64K 1 Drive ОМР110 305 64K Ram Chips 75 
Model 12 64K 2 Drive DMP420 735 Model 4 64K Upgrade Kit 140 
Model 16B 10г 256K DMP500 1219 М100 Bar Code Reader 89 
Model 16B 2DR 256K ОМР2400 1689 64K Printer Buffer 199 
MODEMS Gemini 10Х 300 Printer Stand 25 
Hayes Smartmodem Il Delta-10 470 Printer Cables 
Hayes Smartmodem 1200 Gemini 15Х 405 Printer Ribbons 
Novation Smartcat 1200 Prowriter 379 Printer Paper 
Novation J-Cat Prowriter 11 649 Dust Covers 
AC-3 Okidata CALL Computer Books 
DC Modem І Epson CALL Radio Shack software 10% off. 
DC Modem 1! DISK DRIVES Send for complete listing of 

Model 111/4 Drive 0 515 brand name software and hardware. 
Model 111/4 Drive 1 195 


CALL TOLL FREE 
1-800-343-8124 


е LOWEST POSSIBLE PRICES 
е BEST POSSIBLE WARRANTY 
е KNOWLEDGEABLE SALES STAFF р О Вох 1094 


e TIMELY DELIVERY 480 King Street 
* SUPPI Seen i Littleton, MA 01460 SINCE 1975 


bun IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 
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‘Peripheral Vision’ 
— A Look At 
Third-Party Support 








any of you have, at this point 

in the game, had your Model 

1005 for close to a year now. It 
seems to me that you've probably devel- 
oped some pretty good idea of the 
things you like and dislike about it and 
likely have developed some specific 
thoughts of your own on things you 
would like to see incorporated into this 
powerful, lightweight machine to make 
it even more personally useful than it 
already is. 

Since we have to allow for such a wide 
range of individual preferences and, at 
the same time, maintain portability, it 
seems most probable that any addi- 
tional features might best be in peri- 
pheral form — such as, say, an external 
color monitor interface. And that's al- 
ready available in the Mikrokolor Color 
Graphics Interface from Andreasen’s 
Electronics as listed in our New Pro- 
ducts section last month. 

How about a rechargeable battery 
system? After all, those “AA” alkaline 
cells aren't free and our friendly PoCo 
seems to have quite an appetite for 
them. Or, maybe instead of balancing 
our computers on our laps while wing- 
ing our way to the coast we could have, 
say, a carrying case that would open up 
and serve as a sort of portable desk? 

Well, so far, it seems that every time 
we come up with a need someone not 
only has anticipated that need but filled 
it, because you'll find in this issue's New 
Products section both a rechargeable 
battery system and a combination car- 


rying case and lap-desk already for sale 
— just for your Model 100. 

What's that? You've caught me back- 
ing into this discussion of peripherals 
and needs by peeking into the PCM files 
for examples? Well, that's true, but the 
idea І want to convey here is that while 
we've been using our portables and dis- 
covering areas of need, others have dis- 
covered those same areas, not as a lack- 
ing in the Model 100, but as golden 
opportunities to strengthen this comput- 
er and to make it even more powerful 
than before. As we have found in pub- 
lishing the Rainbow, PCM У sister pub- 
lication for the TRS-80 Color Comput- 
er, third-party support for a computer 
can bring powerand sophistication that 
was undreamed of when the machine 
first came on the market. Апа, | by 
strengthening the computer, these com- 
panies are directly responsible for in- 
creased popularity and sales of that 
computer and, thereby, increase their 
own market base and make entry into 
that market by other potential support 
groups more likely. The word “symbio- 
sis" keeps coming to mind. 

Other improvements? How about a 
device which will enhance a peripheral 
you already own, such as a printer? I'm 
thinking of a means to allow your 
tractor-feed printer to use ordinary sta- 
tionery. That's reviewed in this issue, 
too. 

Well, then, how about mass storage? 
It’s our featured article — we've got you 
covered! 


— Lonnie Falk 
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BUSINESS 
Skyline Software 
PortaCalc - Electronic spreadsheet 


with 14 column by 26 row workspace! 


includes Porta Print and Porta Dex. 
(24K) cassette $6035 $66.45 


*PortaStat - statistical package 
*PortaMax - linear programming 
44495 539.95 ea. 
*PortaFin - loan & investment pkg. 
(24K) $4495 $42.70 ea. 
*PortaFolio - being released soon at 
44-95 $42.70 ea. 
*interactive with PortaCalc data files 


Portable Computer Support Group 
Business Pak+ includes: 
Write+, Graph+, Expns+, Telex, 
Put+, Sort+ & a 120-page manual 
6 cassettes (BK) 15149: $85.45 


(615) 875-8656 Ө P.O. Box 15892 @ Chattanooga, ТМ 37415 


-- 
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Letters 


Editor: 

There are some goodies stored in PoCo's 
ROM which seem to be known by profes- 
sional programmers, but which are not men- 
tioned in the manual. Those I've found so far 
include (9, ABS(X), ASC(X), CARAT (shift- 
ed 6), and MOD. 

@, followed by a number greater than 40 
and a comma, permits printing at an indented 
position on the line. 

ABS(X) returns the absolute value of X, 
removing the negative sign, if any. 


ASC(X) returns the decimal equivalent of 


any ASCII character that can be produced 
from the keyboard, including those requir- 
ing GRPH and CODE; but it doesn't work 
with comma, quotation mark, space bar, or 
enter, possibly others. 

The carat introduces an exponent, permit- 
ting the user to raise a numberto any power. 
For a power of 2, however, it is faster to 
multiply the number by itself, i.c., Y=X*X 
rather than У-Х/2. 

MOD is modulo. It returns the remainder 
after one number is divided by another. 
Thus I3MODS returns a 3. (MOD will 
ignore any digits after the decimal point in 
either of the numbers). 
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Chattanooga Sys. Assoc. 
Scribe-Word Processor 
Formats & prints from text files. 

(8K) cassette $2485" $23.70 


Personal checks welcome. 
Please add $2.00 for shipping. 
Tennessee residents add 6.25% sales 
tax. 

C.O.D. orders add $2.00. 

Send for free 
complete catalog and descriptions! 
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Гус seen the backslash (М), produced by 
holding down GRPH and keying the minus 
sign, used in a commercial program; but I 
haven't figured out what it does. 

Compared with most other printed doc- 
umentation for computers and software, the 
manual is not bad; but it is not nearly as 
good as the machine. David A. Lien's book 
"The TRS-80 Model 100 Portable Compu- 
ter" is an excellent tutorial for someone at 
my level of ignorance, but it also leaves some 
gaps. 

A.W. Goldman 
Newton, MA 


Editor: 

My wife and I travel by motor home in our 
job and have found the TRS-80 Model 100 
to be a very effective tool for handling cor- 
respondence, reports and schedules. In a 
motor home, storage space is limited, and 
while the Model 100 posed no problem, we 
also had to carry a printer and portable 
typewriter. We have now eliminated part of 
the problem by purchasing a Brother porta- 
ble typewriter which can be interfaced to the 
Portable 100. It works fine for our purposes 
and we can leave the printer at home when 
we travel. 

William S. Auman 
Bella Vista, CA 


SPECIALS 


RECREATION 
Silverware 
Games 1 - 4gameson cassette 
Blockade Frankenstein Adventure 
Reversi Alexis Adventure 
(24K) $2495 $23.70 
Games 2 - 4 games on cassette 
Maximum, Checkers 
Amazing Chase 
Williamsburg Adventure 
(24K) 32945 $23.70 


Prickly-Pear Software 10% OFF 
Viking - (24K) simulation game 
cassette $4095 $17.95 
Football 
Armchair Quarterback Strategy 
(16K) cassette $4095 $17.95 


НЕН 
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" MONSTERS 


Monsters & Magic 


The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling up yourcharacters 
basic ability scores and buying equipment. When you are 
ready it's into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight- each with it's own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in this text based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape—24K 


Astrology 


Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
andaspects between the planets willall be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 796 sales 
tax. Orders shipped within two days. 


PRICKLY-PEAR SOFTWARE 
1. QUALITY PROGRAMS FOR YOUR MODEL 100 


A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 


Gangbusters 


If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have whatittakes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you'll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 


Stocked by Quality Dealers, or 
Send Order To: PRICKLY-PEAR SOFTWARE 


9234 E. 30th Street 
= 


Tucson, Arizona 85710 
(602) 886-1505 
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Techniques For 


By Richard A. White 
PCM Contributing Editor 


Handling Data 








bow, there is soon to be published 

an article by Professor Sam Sherrill 
on using CoCo and the М100 to con- 
duct surveys and to analyze the results. 
Because fairly large quantities of data 
are involved, both speed and memory 
conservation are important when writ- 
ing programs for use in survey research. 
As Professor Sherrill points out, sur- 
veys are conducted by asking a sample 
of people a standardized set of ques- 
tions and recording the results, usually 
on paper questionnaires. The largest 
survey organizations use some form of 
CATI, computer-assisted telephone in- 
terviewing. CATI systems allow inter- 
viewers to directly enter answer codes 
into a minicomputer or mainframe ter- 
minal. However, such equipment is ex- 
pensive and clearly not feasible for 
small organizations that only occasion- 
ally conduct surveys among clients or 
customers. 

Professor Sherrill wondered if he 
could use his CoCo to help with a 50- 
question, 100-person survey. He wrote a 
BASIC questionnaire program and then 
trained interviewers to conduct inter- 
views over the telephone using CoCos 
he supplied. It worked! Each question 
and its accompanying responses appears 
separately on the screen for the inter- 


| РСМ 5sister publication, the Rain- 


Dick White has been programming in 


BASIC for over three years, and has a 
number of programs on the market for 
the Color Computer. He is also a col- 
umnist for the Rainbow, PCM’s sister 
publication, and is a member of CIN- 
TUG, the Cincinnati TRS-80 Users’ 
Group. 


viewer to read to the respondent. The 
answers are assigned codes between | 
and 10 (not all numbers need be used for 
a question). After each response was 
obtained, the appropriate numerical 
code was keyed in. The next question 
then would be written on the screen. At 
the end of the interview, the interview 
number and the response numbers were 
saved toa separate disk file. This worked 
quite well in getting the data. 

The portability of the M100 adds a 
new dimension to microcomputer sur- 
veying in that the machine can be taken 
with an interviewer doing face to face 
personal interviews. Data files can be 
easily backed up to tape during the day. 
At the end of the day, data could be 
dumped over the phone to a base com- 
puter, which could be anything includ- 
ing another M100. Data analysis pro- 
grams that run on the CoCo can run on 
the M100 as well. The only real lack is 
that there is no disk drive, which slows 
the operation somewhat. Memory con- 
straints are similar. A smal! business 
could run a small survey of its custom- 
ers and do all the analysis on one М 100. 

Before І get anyone's hopes too high, 
І have to say that there would need be 
some programming tailored to the par- 
ticular survey. Further, survey design is 
not easy and the services of a consultant 
specializing in the field would be very 
useful іп developing a questionnaire 
that produces useful results. So, the rest 
of this column will deal with some pro- 
gramming techniques that we used to 
handle the survey data and which can be 
profitably used for other data handling 
projects. The survey example provides a 
real life application. 


Simple saving and loading data from 
tape is not particularly difficult. The 
descriptions in the М100 manual give 
the user a good start. However, when 
there are other considerations, such as 
the most efficient storage of data in the 
computer, things get somewhat more 
difficult. The data from one interview in 
Professor Sherrill's survey consisted of 
a file of 45 single-digit numbers. (These 
files were on disk, but could have been 
on tape as easily.) Since there would be 
over 100 interviews, a program to calcu- 
late and display the results of the survey 
would have to process more than 4500 
numbers. If two bytes are needed to 
store each number, as is the case with an 
integer, over 9000 bytes would be needed 
for data alone. This is tight in a 24K 
machine which may need to store other 
files or deal with larger databases. For- 
tunately, there is a way to handle this 
much data (and more). 

Numbers can be stored very efficiently 
in strings. This is done with the MID$ 
function to store a character or string in 
another string. This is one of those 
BASIC commands that pays for itself 
many times over. In the example above, 
storage requirements are cut in half. 
Impressive! And not particularly diffi- 
cult to do. This means that a 32K М100 
can handle perhaps 300 interviews of 50 
questions each in memory with the 
analysis program. 

Suppose we have fifty numbers per 
interview or record and that each is a 
single digit number. How are the num- 
bers stored now? Well, they could be 
stored іп an array like V(1), V(2) ... 
V(50). You would have dimensioned the 
integer array with a statement like DIM 
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V%(50) early in the program before any 
numbers were entered. What will the 
final string have to look like? We need 
to know this before we decide to put the 
string together because there are a num- 
ber of options. First, will there be string 
identification in the string itself? Good 
idea to have it. Next, what kind of iden- 
tification will this be? It could be simply 
a number or something more complex 
like a name or other sequence of charac- 
ters that could vary in length from string 
to string. Keeping things simple for 
now, we will usea three digit number to 
identify the string, and will put it in the 
first three positions in the string. 

Where does this string identifying 
number come from? It could be entered 
from the keyboard or it might be as- 
signed by the program itself. In either 
case, BASIC code will have been written 
to get the identifier into a variable that is 
available when the data string is to be 
assembled. In our survey example, the 
interviewer entered the interview num- 
ber in response to the first question in 
the interview: this number is the first 
number in the array in У(1). 


30 AS-STRS(V(1)):)F LEN(AS)23 
THEN А$=КІСНТ$(А$,3) 
35 IF LEN(A$)<3 THEN A$=* "+A$ 


To put the number into a string we 
must convert it to a character from its 
numeric form. A$=STR$(V(1)) does 
this. A$ could be four characters long 
since STR$ always adds either a leading 
space or a minus sign when making the 
conversion. We can test this: if A$ is 
four characters long, get the right three 
with ASZRIGHTS(AS,3). On the other 
hand, our number could be a single digit 
and A$ would be only two characters 
long. We can fix this with A$=“ "FAŞ, if 
necessary. We now have AS string that 
is exactly three characters long and 
which may contain any number from 0 
to 999, 

Next we need to put A$ into the data 
string. Easily done. If we are calling our 
data string ST$(X), ST$(X)=A$ does 
the job, assuming that ST$(X)=" " 
before the assignment. If ST$="SOME 
SORT OF GARBAGE" there is trouble 
in River City, since our method of de- 
coding the string will depend on a par- 
ticular piece of data being ata particular 
location in the string. 


50 FORY=2T045: AS-SRTS(AS): 
A$=RIGHTS(A$,1): STS(X)-STS 
(X)+A$: NEXT 


In the above line, a simple FOR . . . 


TO...NEXT loop is run to get all the 
rest of the values, convert them to single 
character strings, and add each in turn 
to the the data string ST$(X). For those 
with a fancy for large words, the string 
addition process is called concatena- 
tion. Note that we had to get the right 
character іп A$ after the STRS$(V(Y)) 
operation to make А5 one digit long. 
There is a better way to put data into 
strings. Any time a string is redefined, 
the new string is written to a new loca- 
tion in string memory and the location 
of its old contents is forgotten. The old 
string is still there wasting memory. 
Eventually, string space fills up with 
garbage strings and M100 must stop to 
toss the trash. Fittingly, the process is 
REPS UI аланы ET 


“Тһе portability of 
the M100 adds a 
new dimension to 
microcomputer 
surveying in that 
the machine can 
be taken with an 
interviewer doing 
face to face per- 
sonal interviews." 


EER EET аста ES 
called garbage collection. In most pro- 
grams, this hesitation is no problem. 
However, when string space is tight, or 
there is a whole bunch of string process- 
ing going on, garbage collection can 
seriously delay a program. Here is a 
rewritten code that chucks concatena- 
tion and uses MID$ “on the left.” 


25 . . . :ST$(X)=STRINGS$(50,* ”) 

40 MIDS(STS$(X),1,3)=AS 

50 FORY-2TO45: А$=КІСНТ$ 
(STRS(V(Y)),1): MIDS(STS(X), 
Ү+2,1)=А$: NEXT 


The last statement in line 25 defines 
ST$(X) to bea string containing 50 spa- 
ces. We cannot now add our string iden- 
tifying number to a null ST$, but in line 
40 we can insert it into the first three 
positions in ST$(X) in place of the 
blanks. Actually, we could have filled 
the string initially with any character. If 
we had used a period to fill ST$(X) the 
string would now look like this. 


The 145 is a string identifying number 
or record number inserted by the code 
in line 40. In line 50, the process of 
defining and processing А$ is unchanged. 
What is different is that MID$(ST$(X), 
Y+2,1)=A$ inserts the character into а 
calculated location in the string. The 
string is never rewritten in string space 
and little garbage is collected. The same 
process can be used in an editing pro- 
gram to change data in the string. 

MIDS statements are a bit tricky to 
deal with since you must calculate where 
in the string data goes and write BASIC 
statements to implement these calcula- 
tions. On the other hand, the technique 
can give you more control over your 
data and provide memory economy. 
More important, this idea of inserting 
data in a certain point in a record or in 
memory is central to data handling in 
assembly language, C, PL; 1, PASCAL and 
BASICO9 and other applications where 
fixed memory space can or must be 
allocated. The more we ask a language 
to manage our data, the higher the price 
in memory usage and speed. Where 
neither matters, the strengths of BASIC 
should to be used to minimize pro- 
gramming time. 

For Professor Sherrill’s survey, a short 
program was written to take numbers 
from disks and convert them to the 
string format. These files of strings were 
then run into another short program 
that combined them into a single file. 
This final file is the survey database. In 
the M100 environment and in future 
CoCo surveys, | would expect to do the 
string filling during the interviewing. To 
create the database, a file of numbered 
empty strings was generated. This file 
held more strings than we expected to 
need. The combining program loaded 
the full string file and then entered each 
small file and overwrote the empty 
strings. This allowed us to write the edit- 
ing and tabulation programs and use 
them on a partial database before the 
survey was completed. 

Two types of basic data tabulations 
are made in survey analysis: frequency 
counts (often called straight runs and 
marginals) and cross-tabulations. 
Straight runs are absolute frequency 
distributions while marginals are fre- 
quency distributions expressed in per- 
centages. Cross-tabulations (one-way) 
are the answers to one question parti- 
tioned by the answers to a second ques- 
tion. Ina sample survey of M100 owners, 
one question we would certainly ask is 
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whether the respondents read PCM. A 
straight run on this question would 


yield the number who answered "yes" 


and the number who answered “по” the 
marginal would yield the percentages 
answering each way. We might also ask 
the respondents to our survey where 
they buy software and accessories. We 
wonder whether respondents who read 
PCM have different buying patterns 
from those who don't. For example, do 
they buy more by mail order and deal 
less with local sources, including Radio 
Shack? We can find out by cross-tabulat- 
ing the answers to the buying question 
by the answers to the readership ques- 
tion, as follows: 


Read PCM 
Buy from Yes No 
Radio Shack only How many How many 
Local non-R.S. store How many How many 


How many 


vendor 
Mail from publisher How many How many 


The data in the table above could be 
kept in a two-dimensional array in the 
M100. The minimum array would be 
DIM NM%(2.4). 1 visualize that as two 
columns of four rows each. In the cross- 
tabulation program, I defined an array 
as DIM РАІ 1,11). This is actually a 
12 by 12 array since there is a zero row 
and a zero column. A bit over 290 bytes 
of storage are needed with integers. 

Actually, this array was used in the 
second try at the program and there is a 
lesson in that story. Professor Sherrill 
wrote the first cross-tabulation program, 
and we only added the code necessary to 
enter the file of strings from disk and 
decode them. It was at that point that 
large, random-number data blocks were 
processed for the first time and the pro- 
gram was found to be slow. Professor 
Sherrill had worked out a way to calcu- 
late just where in a one-dimension array 
a particular number should be stored. 
The calculation worked, but took time. 
I was asked to investigate a machine 
language approach. In thinking about 
the task, I visualized a data table that 
felt like a BASIC two-dimensioned array. 
| rewrote the program first in BASIC and 
we found it to be over 10 times faster. 
The machine language program was 
never written. 

I certainly had not expected to make 
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this type of impact. The lessons from 
this effort are simple and important: 
calculations take time and where they 
can be reduced or simplified, program 
running time is reduced. Division and 
raising numbers to powers are the slow- 
est calculations. Addition and subtrac- 
tion are fastest. Multiplication is in the 
middle. When you have the choice of 
making a calculation before entering a 
loop or inside the loop, always do it 
before. The heart of the cross-tabulation 
code is below. Note that only tests (1F 
... THEN) and addition are used. 


470 CLS:PRINT:PRINT"INITIAL- 
IZING ARRAY":FORX-0TO 
11 :FORY=0TOI1 :DA(X,Y)=0 
:NEXT :NEXT 

480 CLS:PRINT*ENTER THE VAR- 
IABLE NUMBER OF THE IN- 
DEPENDENT(COLUMN)VAR- 
IABLE”, :INPUTI :CLS 

490 PRINT“INDEPENDENT VAR- 
IABLE IS"]". "ENTER THE 
CODES YOU WISH TO USE 
FOR THE INDEPENDENT 
VARIABLE. AFTER ALLTHE 
CODES HAVE BEEN ENTER- 
ED, ENTEROTO CONTINUE." 

500 INPUTX :DA(X,0)=X :1FX-0 
THEN 510 ELSE 500 

510 CLS:PRINT"ENTER THE VAR- 
IABLENUMBER OF THE DE- 
PENDENT (ROW) VARIA- 
BLE”, :INPUTJ 

530 CLS :PRINT"DEPENDENT 
VARIABLE IS”J“.” “ENTER 
THE CODES YOU WISH TO 
USE FOR THE INDEPEN- 
DENT VARIABLE. AFTER 
ALL OF THE CODES HAVE 
BEEN ENTERED, ENTER 0 
TO CONTINUE.” 

540 INPUTY :DA(0,Y)=Y :IFY>0 
THEN 540 

550 CLS :PRINT@256,“THE RE» 
SULTS WILL APPEAR","MO- 
MENTARILY.” 


In the above block, the user is asked 
to enter the question numbers (“varia- 
ble numbers” to the pros) I and J to be 
cross-tabulated, and which answers (rep- 
resented y code numbers) are to be con- 
sidered. In lines 500 and 540, the codes 
are obtained and simply put into their 
numerical positions in the array i.e. 
DA(X,0) or DA(0,Y). All other array, 
members are still zero. 


570 CT=0 :FORA=NM TO NM+ 
МЕ-І :GOSUBIIO ЛЕ V=DA 
(У,ОААМОУ>0 GOSUBI20 :IF 


VI=DA(0,VIJANDV>0 THEN 

DA(V,VI)=DA(V,V1)+1 :DA 

(V,11)=DA(V,1 1+1 :CT-CT41 
580 NEXT :CLS 


Line 570 does the real work in a ele- 
gantly simple way. The FOR ... TO 

. NEXT loops through the entire 
string array. Subroutine 110 gets the 
answer (code) for the first question in V. 
If V=0 there is no data in that string and 
no point in even checking the second 
question. The same is true if the code 
returned was not chosen for tabulation 
and DA(V,0)=0. Then the test V=DA 
(У ,0) fails. In both cases, control falls to 
580 with its NEXT. If V-DA(V,0) is 
true, the code for the second question is 
obtained and a second set of tests are 
made. If VI=DA(0,V1), we have a 
match. Array members DA(V,V1) and 
DA(V,I1) are incremented by one as is 
the count variable CT. DA(V,ll) isa 
column total while CT is the number of 
interviews tabulated. Three simple addi- 
tions and the program goes to the next 
pair of strings. A sample array might 
look like this. 


rZ рр а 0 9 0 
0 0 0 0 9 0 0 9 0 O O 0 
23 715 09 0 $ I à CG D 
з & 220 00 40 8 0 
4 4 TI 0 Q0 0 2 2 0 0 Q 
00000200020 909 0 0 
000 0 0 0 0 0. 0 O O0 0 
7 L2 70:0 0 I v 0 9 O0 
& 24 00 0 0 0 I 0 O 0 
0 000 00 0 OG O о о 
0000000 00209020 0 
0272239 0 9 010 50 0 0 


Once the data are in the array, it can 
be easily printed to screen and printer. 
The program can check DA(V,0) and 
DA(0,V1) and print only rows апа 
columns that carry values other than 
zero. Percentages are calculated at the 
time of printing, pulling data from the 
array, but not changing it. 

The set of survey programs discussed 
here are limited in use to one particular 
survey and will need modifying before 
they can be broadly applied; hence, they 
are not published in full. In presenting 
code portions, І have tried to illustrate 
some different ways to use BASIC to 
meet real computing needs. Putting 
numerical data into strings can solve 
memory limitation problems, and reduce 
tape save and load time. Data manipu- 
lation in arrays is very powerful and 
fast. In combination, we have found 
another practical and important appli- 
cation of the CoCo and probably for the 
M100 as well. PCM 


If your spelling doesn't compute, what you need is... 


SPELLING 
PRACTICE 


By Mel Perkins 


s | began to write programs оп 
A» Model 100 for use in my busi- 

ness, I also began to see its many 
uses as an educational tool for my son. 
As with many kids, he was veryeager to 
spend time on the computer. 

To help maintain his interest in using 
the computer, and provide him with a 
useful learning experience, 1 wrote the 
following program. It is a spelling prac- 
tice program, and I hope it will be useful 
to your child (or you) as well. 


Setting Up 

First, edit line 10 to contain the words 
to be spelled, placing them within the 
quotes. The last entry must be "stop" to 
tell the program when the last word has 
been given. The user will not be asked to 
spell “stop”; however, if it is omitted, an 
out of data error will result. A handy 
way of placing the words in the data 
statement is to place (7,7) in the paste 
buffer, inserting it between each word. 


Next, the words are to be placed ona 


(Mel Perkins is an electrical engineer with 
Oklahoma Gas and Electric Co. He has been 
writing BASIC programs since he got his 
Model 100 nearly a year ago.) 


The listing: 


cassette tape. It is preferable to use a 
leaderless tape; however, a standard 
leader tape may be used by inserting this 
line: 


25 PRINT@176,*WAIT”: MOTOR- 
ON: FORX=1T03200: NEXTX: 
MOTOROFF:CLS 


> 


Run the program and type “ LOAD’ 
on the instructions display. This will 
take the program to line 500 at which 
point you must set the cassette player to 
RECORD and prepare to speak the 
first word into the microphone. Don't 
forget the only plug from the cassette 
interface cable to be plugged into the 
recorder is the remote. Ready? Press 
ENTER, speak into the microphone the 
first spelling word. (If your recorder 
doesn't have a built-in microphone, you 
will need to use an external microphone 
like Radio Shack's 33-1054 that has 
either separate “тіс” and remote plugs 
or a mic plug only. The microphones 
that come with some recorders won't 
work in this application because their 
dual-plug connectors prevent you from 


plugging in the Model 100's remote 
plug. Disconnect the Model 100 from 
the AUX and EAR jacks, and plug the 
microphone into the MIC jack.) The 
tape will stop and you may place the 
next word on tape by pressing ENTER 
or type “E” and ENTER when you have 
finished. 


Using The Program 

Using the program is easy. Remember 
to remove the ear plug from the inter- 
face cable and simply follow the instruc- 
tions. The program prompts you when 
to spell the word, congratulates you for 
a correct answer, and asks you to try 
again for an incorrect answer. Not in- 
cluded in the displayed instructions is 
the option to skip a word by entering 
“S” at the SPELL prompt. The pro- 
gram ends by telling you how many 
errors and skips were made. 

SP.DO file is opened to allow you to 
monitor your child's (or your) progress. 
The file will contain the dates Spelling 
Practice was used, words skipped, and 
words misspelled in the format "correct 
spelling/ incorrect spelling." 


60 MOTORON: FORX=1T01800:NEXTX:MOTOROFF 


10 DATA "SPELLING", "TEST", "PROGRAM" , "FOR 
"PORT “STOF” 

20 CLS:PRINTG1Q,"SPELLING PRACTICE": PRIN 
T@90,"LOAD SPELLING ТАРЕ" : PRINT@13@,"REW 
IND TO START": PRINT@17@,"PRESS PLAY":PRI 
NT@210,"PRESS ENTER TO START": РКІМТЕ250, 
:: INPUTDM$:CLS 

25 PRINT6175,"Please stand by...":MOTORO 
М:ҒОКХ-1705200: NEXTX: MOTOROFF:CLS 

30 IF DM$-"LOAD"THENS0Q 

40 OPEN"RAM:8P.DO"FORAPPENDASI 

48 PRINT41,"":PRINTS1,DATE$ 

50 READW$:IFW$-"STOP"THENPRINTE;" ERRORS 
"ФРВІМТ5;" SKIPS":CLOSE:END 


65 LINE (66,32) - (167,352) 

78 PRINT@132,;:LINEINPUT"SPELL "; АМ 

75 ІРАМ$= "5 "ТНЕМРКІМТЖ і, "5КІР-"; $: 5=5+{ 
1С.5: 6070100 

80 IFANS< WSTHENCLS: PRINT8212,"TRY AGAIN 
"SPRINTS1,8$; "И" АМФ" ";:Е=Е+1:60Т065 
90 СІ5: РАІМТЕі 32, "6000! ": ҒОКХ=1Т0700: NEX 
ТХ 

100 PRINTe132,"PRESS ENTER TO CONTINUE": 
PRINT@172,3: INPUTDM$: CLS: GOTOSO 

500 PRINT84Q,;:LINEINPUT"PRESS ENTER TO 
CONTINUE,E TO END";DM$: IFDM$="E"THENEND 
510 MOTORON:FORX-1TO180Q: NEXTX: MOTOROFF: 
68070500 IPCM 
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Planning Your Car's 
Maintenance Program 
(Or Doing What You 

AUTO.DO) 


By Robert Frowenfeld 
PCM Contributing Editor 





(Robert Frowenfeld owns his own 
computer programming firm in Louis- 
ville, Ky., and has completed his gradu- 
ate course work in computer science at 
the University of Louisville.) 


On The Road 


or the last several months Гуе 
been giving you ideas and pro- 


grams to help you get the most 
out of your Model 100 when you're out 
of the office and literally on the road. 
l've covered everything from economic 
analyses to grocery shopping, surveying 
to stocks. And this month I've come up 
with a little gem which will help keep 
you happily motoring along while you 
are (you guessed it) on the road. This 
month's program is designed to help 
you keep track of the maintenance on 
your automobile. 

Ав usual, this program uses data files 

two data files to be exact. The first 
one, called AUTO.DO, identifies the 
various types of maintenance you're 
concerned about. Looking at my ver- 
sion of this file (Figure 1), I have listed 
10 maintenance items that 1 would like 
to monitor. I entered these items with 
the TEXT program that comes with the 
Model 100. For every maintenance item, 
l entered the line number (1,2,3, etc.), a 
brief description in quotes, and two 
numbers. The first number is the inter- 
val in months, the second is the interval 
in miles for which the particular service 
needs to be performed. For example, 
line 6 indicates that the car should have 
its tires rotated every six months or 
5,000 miles. 

The second data file is called MAINT 
.DO: this data file is a transaction file 
which keeps track of all the mainte- 
nance done on my automobile. Included 
in each record is the date the service was 


performed, the number of the type of 


service (from AUTO.DO), an optional 





comment line, and the mileage (see Fig- 
ure 2). 

When you first run this program (1 
called my version AUTO. BA) you see a 
menu that offers five options (see Figure 
3). The first option is for entering ser- 
vice that has been performed. Referring 
to Figure 4, you can see that the pro- 
gram requests the necessary informa- 
tion to construct a record for the main- 
tenance file. 

Every time you have work done to 
your car, you enter the appropriate 
date, comments (if any) and mileage. 
That way, when you invoke the second 
option of this program “Summarize 
Transactions,” you can retrieve (and 
send to an attached printer) a complete, 
documented history of your car’s main- 
tenance record. As you can see from 
Figure 5, you can print out a very attract- 
ive service record or your car's mainte- 
nance records. 

Option 3 from the main menu will list 
to the screen (or a printer) the various 
maintenance categories. Similar to Fig- 
ure 1, this listing gives a nicely format- 
ted view of the different types of main- 
tenance and the respective time and 
mileage intervals at which they are to be 
performed (see Figure 6). 

Now for you early birds who like to 
plan your car maintenance duties far 
into the future, I have included a special 
function that I think you may find use- 
ful. Option 4 from the main menu 
allows you to predict the different points 
at which your car will require mainte- 
nance. Referring to Figure 7, you simply 
type in the current month and year, 
along with the automobile's current 
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mileage. The program then asks if you 
want to predict the points in time or 
mileage at which the various types of 
maintenance will have to be performed. 
If you type in a number between 1 and 
72, the program assumes you want to 
predict your maintenance schedule in 
months. However, if the number you 
enter is over 1000, then the program 


Figure 1 — Auto.do file 


{ "Dil Change",12,10000 


assumes you want the mileage readings 
at which to take care of your baby. Fig- 
ure 8 is a partial listing of the recom- 
mended points in time (in months) that 
service is recommended over the next 36 
months for my car. Note that the pro- 
gram indicates the last time each service 
was performed. As you may have guess- 
ed, the program compares the last time 


each particular type of service was per- 
formed and (based on the choice of 
months or mileage) uses the month and 
miles intervals entered into the file 
AUTO.DO to predict the next service 
period. 

Well, there you have it. Here's hoping 
you'll continue to have happy motoring 
ahead of you. . . on the road. 


Figure 5 — Partial Listing of Complete Maintenance History 


"011 Filter",12,10000 


"Lubrication",12,10000 
"Air Filter",6,5000 
"Gas Filter",36,30000 


"Inspect Brakes",12,10000 


"Tune-up",24,20000 


"Check Tire Pressure",6,5000 


2 
3 
4 
5 
6 "Rotate Tires",6,5000 
7 
8 
9 
1 


0 "Replace Shocks",36,30000 


Figure 2 — Maint.do file 


"1/1/83","1","10w40 = 5 quarts", 


"1/1/83","2","None", 10000 


"3/15/83" ,"8","Spark Plugs,etc.", 18000 


"4/1/83","6","Took off snows", 20000 


"6/10/85", "4" n ТЕ 
"5/18/83 ^g" n РУ 


24000 
24000 


28000 


, 
LU 

"В/1/83"," 1","5 quarts 10w40", 28000 
1 


ВУЗУ p m go. n 36 


Figure 3 — Menu 


Automobile Maintenance Scheduler 


Enter Transaction 


List Categories 
Identify Maint. 
End Frogram 
Select: 


Cn > C4 N н 


Figure 4 — Transaction Entry 


Enter Transaction 


Date :8/1/30 
Cat. Desc. :011 Filter 
Comments d 

Mileage : 28000 


Entry Correct 


Summarize Transactions 


Requirements 


(Y/N): 


Account: - Oil Change 
Date Comments Milage 
1/1/83 10н40 - 5 quarts 10000 
8/1/83 5 quarts 10w40 28000 
Total # entries = 2 
Account: - Oil Filter 
Date Comments Milage 
1/1/83 None 10000 
10000 8/1/83 28000 
Total 8 entries = 2 
Account: ~ Air Filter 
Date Comments Milage 
6/10/83 24000 
Total 8 entries - 1 
Figure 6 — Recommended Service Intervals 
Maint# Description Mos. Miles 
1 011 Change 12 10000 
2 Dil Filter 12 10000 
3 Lubrication 12 10000 
4 Air Filter 6 3000 
5 Bas Filter зь 30000 
6 Rotate Tires 6 5000 
7 Inspect Brakes 12 10000 
8 Tune-up 24 20000 
9 Check Tire Pres 6 5000 
10 Replace Shocks 56 30000 


Category %: 2 
Today's Date 


Present Mileage з 


Fredict 


Figure 7 — Input to Predict Maintenance Needs 
Identify Maint. 


Requirements 
(mn/yy): 1/B4 
32000 


(months or miles): 36 
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Figure 8 — Partial Listing of Predicted Maintenance Needs 
011 Change Schedule: 1/84 - 1/87 


Last Maintenance was on: 8/83 
Service should be every 12 months 


Future Service Dates: 8/84 8/85 8/86 


Press any key to continue: 


The listing: 
1 MAXFILES-2:CLEAR 100@:DEFINT I-N:DEFST 


рез 
2 BL$-STRING$(38," ") 
5 ES$-CHR$(27):R-ES$*"p":U-ES$*"q":6G0TO 
35 
6 LINEINPUT ІМ%: XsVAL(INS):IF IN$<¢>"" TH 
EN YsASC(INS):RETURN ELSE RETURN 
35 ° 
40 FI$z2"maint.DO" 
50 DATA"Enter Transaction","Summarize Tr 
ansactions","List Categories","Identify 
Maint. Requiresents", "End Program" 
51 РОК Ізі TO S:READ М0$ (1): МЕХТ I 
60 KEY 1," "*CHR$(13) 
78 Gis="\ ¥ \ 
нн 
71 Hi$z" Date 
Milage" 
72 H2$="Maint# Description Mos. 
Miles 
75 G2$=" ## \ \ ## 
тн” 


Comments 


180 CLS:PRINTé5,"Automobile Maintenance 

Scheduler" 

105 CLOSE 

118 FIR I*1 TO S:PRINTG45*I*40,R; I3U" "M 
0$ I) 3 : NEXT I 

115 PRINTQ289, “Selects "a 

120 A=INPUT$(1):FX=VAL(A):IF FX<1 OR FX? 
5 THEN 120 

150 ON FX GOTO 1000,2000, 5000, 8000 , 4000 

200 CL5:J=LEN(MØ$(FX)):PRINTTAB(20-J/2); 
M@$ (FX) : RETURN 

500 OPEN FI$ FOR INPUT AS 1:RETURN 

510 OPEN "auto.DO" FOR INPUT AS 2:RETURN 
400 PRINT@290,"Press "К" Fi "U" to Exit" 
; 3 RETURN 

500 'pause 

510 PRINT@28@," "А" Press апу ke 
y to continue: ";U;" "ssA=INPUT$(1):RETUR 
N 

600 'heading 

610 CLS:PRINTH2$:PRINTHS$:IF (PR) THEN L 
PRINT H2$:LPRINT H3$ 

620 RETURN 
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650 CLS:PRINT H1$:PRINT H4$:IF (PR) THEN 


LPRINT TAB(S) "Accounts: ":AC$;" = ";АЗ$: 
LPRINT:LPRINT H1$:LPRINT Н4% 
660 RETURN 


1000 'enter transaction 

1005 CLOSE: OPEN FI$ FOR APPEND AS 1:60SU 
B 310 

1810 GOSUB 200 

1020 PRINTe080, "Date 
tegory 3:"; 

1050 PRINTe120,"Cat. Desc. :"; 
1040 PRINT@16@,"Comments yt. 
1050 PRINT@200, "Mileage 13 
18050 GOSUB 400 

1100 PRINT@92,""3:GOSUB 6:ІҒ Y=32 THEN 1 

00 ELSE IF (ЕМ(ІМ%)<6 THEN 1100 ELSE DT$ 

zINS:PRINT$280,BL$; 

1110 PRINTé114, "";:605UB 6:IF IN$z"" THE 

М 1110 ELSE Y=ASC(IN$):IF Y=32 THEN 1110 
1112 GOSUB 5000:ІҒ ЕКЗ! THEN 1110 

1115 PRINT8132,A3$; :AC$zZSTR$(N) 

1130 PRINT8172, ""; : GOSUB 6:IF IN$z"" THE 

М 1130 ELSE DES=IN$ 

1140 PRINT@212,""3:GOSUB 6:IF IN$z"" THE 

М 1140 ELSE АМ! =Х 

1160 PRINT@288,"Entry Correct (Y/N): ";: 
INS=INPUT$(1):IF INS="N" OR IN$z"n" THEN 
1000 ELSE IF IN#<>"Y" AND IN$<>"y" THEN 
1160 ELSE PRINT IN$; 

1170 PRINTSI,CHR$(S4) DT$CHRS$(S4) ","CHR$( 
S4) ACSCHRS$(S4) " , "СНА$ (34) DESCHR$(S4) ", "А 
M! 

1180 GOTO 1000 

2000 'summary 

2010 С1.05Е:65058200: 50508300: 60508400: GO 
5UB310:A452z"" 

2015 PRINT8205," (Enter 
nts)" 

2020 PRINT@13@,"Enter Account й: "::G08U 
B 6:IF IN$z"" THEN 2020 ELSE IF Y=32 THE 
М 100 

2038 PRINT@280,BL$; 

2035 IF IN$z"«*" THEN АА-"%”:6070 2045 
2048 GOSUB 5000:ІҒ ER=1 THEN 2000 

2045 PRINT6200,BL$; :PRINT8129,"Send to p 
rinter (Y/N): "; 

2047 AsINPUT$(1):1F A=" " THEN 100 ELSE 
IF A="N"OR A="n" THEN PR=@ ELSE IF A="¥" 
OR A="y" THEN РК--і ELSE 2045 

2049 IF AA="#" THEN 6000 

2050 GOSUB 650:1С-0:75-0 

2055 PRINT@28@,"Acct.: "М" ~ "АЗ; : РКІМТЕ 
80,""3 

2060 IF EQF(1) THEN 2092 

2070 INPUT#1,DT$,DU$,DE$,AM!':N=VAL (00$): 
IF М<>ХХ THEN 2068 

2080 PRINT USING Gi$S;DT$;LEFTS(DES,21) 54 
M':TS-TS*1:IF (PR) THEN LPRINT USING 61$ 
ОТ: LEFT$(DES$,21); АМ! 

2085 LC=LC+i:IF LC=5 AND (NOT PR) THEN 6 


:"; TAB(22) "Ca 


'*' for all accou 


DSUB 5@@:LC=@:GOSUB 550 

2090 GOTO 2060 

2092 CLOSE 1:IF AA="*" AND TS=@ THEN 209 
8 

2095 IF (NOT PR) THEN GOSUB 5@@:CLS:PRIN 
Té5,"Acct. 4$";XX;" = ";AS3$:PRINTG125,"To 
tal # entries = ";TS:GOSUB 500 

2097 IF (PR) THEN LPRINT:LPRINT"Total # 
entries = ";TS 

2098 IF AA="*" THEN IF (PR) THEN FOR Ізі 
TOS:LPRINT:NEXT I:G0TO 5000 ELSE 69000 
2099 6070 2000 

3000 'list accounts 

3010 GOSUB 288:CLOSE: GÜSUB 310: Б050В 400 
3020 PRINT@129,"Send to printer (Y/N): " 


і 

3030 ASINPUT$(1):IF Ах" " THEN 100 ELSE 
IF A="N"OR A="n" THEN РК=0 ELSE IF А="Ү" 
OR А="у" THEN PR=-1 ELSE 3838 

3055 PRINT A; :PRINT6280,BL$; 

3040 GOSUB 600:LC-0 

3050 IF ЕОР(2) THEN 3095 

3060 INPUT#2,N,A1,M1,M2:PRINT USING 62%; 

М,А1,М1,М2 

3065 LC-LC*1:IF LC=5 AND (NOT PR) THEN 6 

OSUB 500: IF A=" " THEN 100 ELSE LC=0:60 

SUB 600 

3070 IF (PR) THEN LPRINT USING 62$;N,A1, 

M1,M2 

3075 GOTO 5050 

3095 GOSUB 500:CLOSE:60TO 100 

4000 'end 

4010 CLS5:MENU 

5000 ‘search for category 

5010 ЕК=0:ІҒ EOF(2) THEN ER=1:RETURN 

5020 INPUT #2,N,A3,M1,M2 

5030 ХХ-Х 

5040 IF N=X THEN RETURN ELSE 5010 

60808 ' for all accounts 

8010 IF ЕОР(2) THEN 2000 

6020 INPUT %2,М,А5,М1,М2 

6025 XX=N:GOSUB70@@:IF Т5-0 THEN 6010 

6030 CLOSE 1:GOSUB 300: 10%=А:60Т0 2050 
7000 'check if any for this category 
7010 TS-0:CLOSE 1:60508 500 

7015 IF EOF(1) THEN RETURN 

7020 INPUT#1,DT$,DU$:IF VAL(DU$)=N THEN 

TSz1:RETURN ELSE 7015 

8000 'predict maintenance 

8010 CLOSE: GOSUB200:GOSUBR31@:G0SUB400 

8020 PRINT@8@,BL$;:PRINT@86,"Today’s Dat 

e (mm/yy): "}1805ШВ6: ТЕ INS=" "THEN RUN 

ELSE J=INSTR(IN$,"/")s IF J<2 OR J>3 THE 

N 8020 

8030 MMzX:YYzVAL(MIDSCINS,J*1)) : IF ММ<1 
OR ММ212 OR ҮҮ<20 OR YY>99 THEN 8020 
8835 PRINT 8160,BL$; :PRINT 8166,"Present 
Mileage : U"S:608UB 6:IF IN$z" " THE 
М RUN ELSE IF X<=@ OR Х>500000 THEN 8035 
ELSE ML=X:CM=X 


8040 PRINT@28@,BL$;:PRINT@240,BL$; : PRINT 
@246,"Predict (months or miles): "3:GOSU 


8050 P=X:IF (P>=1 AND P<=72) OR (Р>=1000 
AND Р<-50000) THEN 8055 ELSE 8040 

8055 IF Р<100 THEN OP=1 ELSE OP=2 

8060 CLS 

8070 CLS:IF EOF(2) THEN RUN 

8080 INPUT %2,М,А1,М1,М2 

8090 50508 9000 

8095 ON ОР GOTO 8100,8200 

8100 'predict for months 

8110 IF LD*M1»YY*12*MM*P THEN 8070 

8120 PRINT Аі; " Schedule: "; : Р0=ҮҮ#12+ММ 
:60SUB8300:PRINT" - "; :Рр=Рр+Р: 605088500 
: PRINT 

8150 PRINT:PRINT "Last Maintenance was о 

n: ";:IF LD=@ AND LM=@ THEN PRINT"----": 

GOTO 8150 

8140 PD=LD:GOSUB 8500:РКІМТ 

8150 PRINT"Service should be every"Mi"mo 

nths":PRINT 

8160 PRINT"Future Service Dates: ";:DD=L 

D:IF LD+M1<YY#12+MM THEN DDzYY*12*MM-M1: 

GOTO 8180 

8170 IF DD+M1>LD+P THEN 8190 

віва DD=DD+M1:PD=DD:GOSUB 8380:GOTO 8170 


8190 GOSUB 50@:GOTO 8070 

8208 ‘predict for miles 

8210 IF LM+M2>CM+P THEN 8070 

8220 PRINT Als" Schedule: "jiCM;"-":CM*P 
8238 PRINT:PRINT "Last Maintenance was a 
ts "s:IF LD=@ AND LM=@ THEN PRINT"----": 
GOTO 8250 

8240 PRINT LM;"miles" 

8250 PRINT"Service should be every"M2"mi 
les":PRINT 

8260 PRINT"Future Service 8 (Miles): ";: 
DD=LM: IF LM+M2<CM THEN DDzCM-M2:GO0TO 828 


0 

8270 IF DD+M2>LM+P THEN 8290 

8280 DD=DD+M2:PRINT USING" ##### ";DD;:6 
ОТО 8270 

8290 GOSUB 500: БОТО 8070 

8500 'print date 

8310 J=PD MOD 12:K2INT(PD/12):IF J=@ THE 
М 0212: K=K-1 

8520 PRINT USING"##/## ":Ј; К; : RETURN 
8999 60708999 

9000 'find last maint date/mileage 

9005 CLOSE 1:G05UB 300 
9010 LD=@:LM=8 

9020 IF EOF(1) THEN RETURN 
9030 INPUT $1,DT$,DU$,DE$, 
)<>N THEN 9020 

9040 LM=AM!:LD=VAL(DT$)+VAL(RIGHT$(DT$,2 
))*12 

9050 GOTO 9020 РСМ! 


AM!:IF МАГ (00% 
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If you got together a room full of 
Model 100 users and asked them 
what their main need is, 90 percent 
would probably reply “Mass Storage!" 

Virtually all of us have encountered 
difficulties using cassette. Either it's 
hard to locate something, it won't load, 
or takes too long — cassette is just not 
the best means for mass storage. 

Not too much can be done about the 
32K maximum RAM of usable onboard 
memory, although the M100 look-alike, 
the NEC 8201A, does have an option 
for plug-in 32K RAMs with battery 
backup. The catch is cost: $400 per 32K 





(Jim Hawk has been working in radio 
news for tha past 12 years and has a 
science and electronics background. He 
also does freelance writing in Washing- 
ton, D.C.) 
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when the same amount of data can eas- 
ily be put ona two dollar cassette. So, it 
boils down to findingsome other means 
of magnetic storage for a cost effective 
way to improve on the cassette. Enter 
the wafer tape. . . . 


Wafer Promises Disk-Like Speed, 
Cassette Size And Cost 

A wafer drive for the Model 100 has 
already been announced but wafer drives 
have been around since Radio Shack's 
original Model 1. Several thousand re- 
portedly were sold by a third-party 
company called Exatron, and also con- 
nected to original Apples before disk 
drives were common. Wafer tape drives 
utilize the continuous loop format made 
popular by 8-track audio tapes. About 
the size of a business card with tape as 
thin as that used on a microcassette, 
wafer tapes use only one spool with 





around 20 feet of tape connected back 
onto itself by a strip of metal foil. This 
"cartridge" is inserted into a tape drive 
unit that normally runs at a speed of 
around 10 inches per second, but can 
rev up to 20 inches per second in the fast 
forward, search mode (recueing at the 
foil strip). This speed, combined with a 
digital method of encoding data, makes 
for a combination that runs circles 
around cassettes and gives disk drives 
(especially portable ones) a run for the 
money. 

Larry Holmes, founder of Holmes 
Engineering out of Salt Lake City now 
marketing a wafer drive for the Model 
100, says the need for the product 
became evident just from general obser- 
vation. And he decided to develop the 
wafer drive concept after checking out 
portable disk drive units and conclud- 


ing the cost would end up being $700 to 
$1,000. . .a lot of money for any M100 
peripheral. The Holmes wafer drive, sel- 
ling for just under $350, is actually 
almost a computer itself. Explains 
Holmes, “we saw some quirks in the 
Model 100 that didn't lend themselves 
to easy solution, so it became obvious it 
would have to be fairly complex ... 
fairly smart." The expansion connector 
on the bottom of the 100 would have 
simplified things, but Holmes decided it 
just wasn't usable for day-to-day appli- 
cations. So, the RS-232 port on the 
back was the only other way to connect 
the two machines. 

Holmes also knew it meant he'd have 
to have a microprocessor in his drive, 
because the 100 doesn't have any “һага- 
ware handshaking" on the RS-232 port 
— which means you don't have any way 
for the two machines to talk back and 
forth to each other and let each know 
that data has been properly received. 
What Holmes ended up with is a box 
about two-thirds the size of the 100, 
containing the wafer drive, a Z-80 based 
microprocessor, 16K of RAM, а separ- 
ate ROM and a rechargeable battery. 

If the unit lives up to specifications, it 
will not only quickly store and retrieve 
text and programs, it'll give you a direc- 
tory of what files are on the tape as well 
as recheck each and every byte before 
completing a cycle. This will theoreti- 
cally make the wafer drive operate very 
much like a disk system, but critics 
won't be silenced until they see some 
in-field proof. Wafer drives have been 
around a long time, but have only found 
acceptance in the engineering and pro- 
gramming fields. Also, no standard 
exists: Hewlett Packard currently mark- 
ets a mini-digital cassette drive of its 
own, but it uses a two-spooled mini- 
cassette that can shuttle back and forth 
instead of just in a single continuous 
direction and naturally connects only to 
HP products. Holmes says a standard- 
sized wafer can hold about 20K of 
information, and that loading runs at 
9600 Baud . . . over six times the 1500 
Baud speed of the cassette port. Part of 
this speed is made possible by the 16К 
RAM, which utilizes about 12K as a 
"buffer," allowing the Holmes drive to 
take in data faster than it's storing it on 
tape. Will the Holmes wafer drive be 
able to compete with upcoming disk 
systems? One bad omen comes from the 
ill-fated Texas Instruments consumer 
line: just before they dropped their low- 
end machines, TI was advertising a 
wafer-based digital tape drive for its 
notebook-sized CC-40 (still available, 
but the drive was dropped before it 


reached the stores). Despite that deba- 
cle, inventor Holmes is optimistic — 
saying he took a propotype unit to the 
Comdex computer show recently and 
found many interested parties. Also the 
maker of the basic wafer drives (now 
under the name of Entrepo in Sunny- 
vale, Calif.) has indicated it intends to 
go to Hong Kong for large scale manu- 
facturing — and that may bring further 
price reductions. 


Don't Count Out The Disk 

At that same Comdex convention in 
the fall — one of the major events in the 
computer industry — NEC was show- 
ing off a prototype that drew a lot of 


“. „ . either a third- 
party firm or 
Tandy Corpora- 
tion is expected to 
offera...[disk 
drive] attachment 
for the Model 100 
— exactly when is 
not known." 


Шыныны. ааа еі ы 
attention: a portable, battery-powered 
disk drive. Although not available till 
the summer, the specifications on the 
unit are impressive: using 3!^-inch dou- 
ble-density dual-sided disks, the ma- 
chine promises 160K of storage per side, 
meaning a total of 320K per disk. The 
PC-8031 connects to the company's 
Model 100 brother (the 8201A) using a 
port not appearing on the 100: an 8-pin 
version of the modular jack you see on 
telephones . . . meaning incompatibil- 
ity. But I have word from a source wish- 
ing not to be disclosed that either a 
third-party firm or Tandy Corporation 
is expected to offer a similar attachment 
for the Model 100 — exactly when is пої 
known. What we do know is that some 
big Japanese firms are struggling right 
now over a standard for the so-called 
"microfloppy" disk. 


The Incredible Shrinking Disk 
"Floppy" disks — thin sheets of mylar 
coated with metal oxide and encased in 
a paper envelope — first were employed 
about 10 years ago to load software into 


2 games packages for your 
relaxation and enjoyment: 


MODEL 100 Games #1 


Blockade - Your 'snake' grows longer 
as you hit the randomly appearing 
targets on the screen! A one or two 
player real-time game. 


Reversi - Outflank your opponent! Play 
against the computer or another human. 


Frankenstein Adventure - Find all 
of the necessary equipment to awaken 
the monster. 


Alexis Adventure - Sail the seas and 
traverse the islands to recapture your 
kingdom. 


MODEL 100 Games 72 


Maximum - Outscore your opponent 
or the computer by taking the higher 
point squares and leaving a low point 
choice for them. 


Checkers - The classic game! Play 
against the computer or against a 
human or have the computer play itself! 


Amazing Chase - Outrun two pur- 
suers in a maze in this real-time game 
with optional sound. 


Williamsburg Adventure - Steal, 
eat, shoot, and laugh to find the golden 
horseshoe! 


Choose either of the games packages for 
only 524.951 


- a lot of software for a little silver 


See your dealer or: 
Write or call us direct at PO. Box 21101, 
Santa Barbara CA 93121 (805) 966-1449 
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large mainframe computers. 

These 8-inch diameter monsters op- 
erated in the clean-room conditions 
maintained for the mainframes, using 
trained operators. It was only later that 
floppies went through their first shrink- 
ing act, to 54 inches diameter, to be 
adapted for small personal computers. 
But the current machines suffer from 
the lack of dust-free environments, the 
fragility of the mylar disks, and rela- 
tively complicated operating procedures. 
Just about any computer repairman will 
tell you the disk drive is the first thing to 
require maintenance. And how many 
times have you heard from personal 
computer users that you should always 
make backup copies of disks because of 
their vulnerability? The Japanese have 
done some clever things to the new 
generation of floppies: of course, shrink- 
ing them in size while increasing capa- 
city, but also encasing the microfloppies 
inside rigid plastic shells. Myles Tintle, 
general manager of Sony Corporation's 
communication products division in 
Park Ridge, N.J., compares the devel- 
opment to audio when cassettes took 
over the open reel format. These new 
floppies or “diskettes” are not only pro- 
tected from oily fingers and dust, their 


rigid plastic cases are also designed so 
they can't be loaded upside down. And 
the drives (like 300 RPM turntables) no 
longer use belts and pulleys — they 
instead employ direct-drive brushless 
d.c. motors. 

Also, instead of grabbing onto the 
mylar itself to spin the disk past a fixed 
head, a metal hub has been employed to 
take the stress away from the recording 
medium. Combined with a system re- 
quiring only six watts maximum, three 
watts standby, Sony has made a porta- 
ble possible. . . although Tintle admits 
a battery-powered unit has yet to be 
unveiled. Already, Hewlett Packard has 
put Sony's drives on its new HP-150 as 
well as three other HP products. Sony's 
Tintle says his firm has now shipped in 
excess of 150,000 units, and they expect 
to ship another 500,000 in '84. Compet- 
ingagainst Sony's 3.5-inch microfloppy, 
Hitachi has a 3-inch version aimed 
directly at the portable computer market. 
The marketplace will probably have a 
clearer choice as the year progresses, 
but ANSI (the American National Stan- 
dards Institute) has started work on 
draftinga 3.5-inch standard. We already 
own Japanese computers — the Model 
100 and the NEC 8201А are both made 


by Kyocera — and it seems a miniature 
Japanese disk machine may be on the 
horizon as well. But if you own a desk- 
top personal computer like Apple or 
IBM, you can get your 100 talking to 
those disk units right now... . 


РІЅК+ From Тһе WRITE- People 

Software reviewers are in unanimous 
agreement: the WR/TE+ software from 
the Portable Computer Support Group 
in Dallas makes the 100 a complete 
word processor. Now, the same com- 
pany has just announced D/SK+ for the 
IBM PC, TRS-80 Model 4, Apple Ile 
and others. This software, which arrived 
for review the day this article had to go 
to print, promises to transfer Model 100 
files “with merely a function key." You 
can, with the aid of an RS-232 cable 
with “null modem," transfer апу Ше 
from RAM to disk, or vice versa. 
PCSG's Sam Redman told me “our 
DIS К+ gives you guaranteed data trans- 
fer because it checks every line until cor- 
rect . . . at 19000 Baud, almost instant- 
ly.” Already being used by staffers, 
Redman says he has a rule: nobody uses 
cassette anymore, unless it’s to load 
DISK+. More on that software devel- 
opment in a later issue. 


IF YOU CAN READ THIS... 
YOU CAN WIN A BAR CODE READER. 


If you don't own a Bar Code Reader call our TOLL FREE number 800-645-1165 
and we'll send you a decoding sheet and bar code information 


10 winners will be chosen from all entries received 
But remember you must have all 3 clues to be eligible 


Call our TOLL FREE number 800-645-1165 


for your entry blank 


If you missed any CLUE call 


our TOLL FREE number and we'll 


send you the clue. 


В.Т. Enterprises Dept. 2B 


10 Carlough Road 


Bohemia, N.Y. 11716-2996 


516 567-8155 (voice) 
516 588-5836 (modem) 





B.T. Enterprises is a division of Bi-Tech Enterprises Inc. 
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Orders Only 800-645-1165 


CLUE ҰЗ 


Bar Code Readers available 
for the RADIO SHACK MODEL 100, 


the EPSON HX 20 and the NEC PC 8210 


Dealer Inquires Welcome 

Prices subject to change 

N.Y.S. Residents add tax 
American Express, Carte Blanche, 
Diners Club, MasterCard & Visa 


A Final Word On The Lowly Cassette 

Wouldn't it be nice to be able to cue 
your cassette directly to the program or 
text file desired? This author has been 
speeding up cassette operation by a 
simple trick: voice markers at the be- 
ginning and end of files. The only 
requirement is a cassette recorder with a 
built-in mike: I stumbled upon this 
because the Radio Shack CTR-60 was 
on sale for $30 when І bought my 100, 
and І couldn't see any mechanical dif- 
ference between it and the twice-as- 
expensive CCR-8l which is specifically 
for computers but doesn't have the 
built-in mike. More out of curiosity 
than anything, I tried talking about the 
file І was about to put on tape, left a 
blank space, then saved my file nor- 
mally. To my surprise, the M100 loaded 
those files about 80 percent of the time, 
even when I didn't cue up past the voice- 
announce. Now it's become so routine, І 
easily jump past huge text files and find 
exactly what l want оп (аре. . . no wait- 
ing for "skip: XXX." It's easier done 
than said — first you need to become 
familiar with exactly what a BASIC or 
text file sounds like. Listeningat normal 
speed, computer files sound like jam- 





or office each month! 
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Prospect, KY 40059 
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first copy. 


YES! Sign me up for a year (12 issues) of Portable Computing 


п MasterCard 


ming signals on shortwave radio. But at 
fast forward, the sound is more like hiss- 
ing air. Anyway, text files have a char- 
acteristic on/off sound, while BASIC 
files have a short identifier blip at the 
beginning and then a continuous sound 
till finished. (1 was reassured by the 
people at Holmes Engineering that fast- 
forwarding does not deteriorate the 
magnetic integrity of a file: both their 
wafer drive and other disk drives employ 
heads that stay in contact with the 
medium.) The technique: get ready to 
save a file in the normal fashion, includ- 
ing putting the machine on “Record.” 
Then, simply unplug the “remote” cable 
and let it roll in silence for a moment, 
then also unplug the "Aux" connector, 
automatically switching open the built- 
in mike. Say whatever you want about 
the file: its six-character name, the date 
and maybe even the size of the file. 
Then, reverse the plug-in order, first re- 
connecting the Aux plug, and letting it 
roll а few moments іп silence before also 
re-connecting the remote plug. SAVE in 
the usual fashion, and if you want, put a 
voice billboard on the end of the file as 
well. Гуе found this procedure to be 
extremely helpful, since 1 can cue up 


Your Perfect Portable Companion 


Now, here's your opportunity to have PCM — The Portable Computing Magazine delivered to your home 


PCM will bring you the finest and most up-to-date information available anywhere for your TRS-80 
Model 100 Portable Computer. Whether your interest is programming, using the Portable Computer's 
fabulous built-in functions or communicating with other Portable owners, PCM is for you. 

Each month we'll bring you a host of articles, ready-to-run programs for business and professional use or 
just plain fun. And each article will be in an easy-to-read style...not computerese. 

Subscribe to PCM today! A dozen issues are only $28 ($35 in Canada and Mexico). 


PCM — The Portable Computing Magazine 


State 


O American Express 


Interbank # (MC only) 


Card Expiration Date 


Subscriptions to Portable Computing are $28 a year in the United States. 
Canadian and Mexican rate is U.S. $35. Surface rate elsewhere U.S. $64. Air mail 
U.S. $85. All subscriptions begin with the current issue. Please allow 5-6 weeks for 


VISA’ 


right to the point desired, and if it 
doesn’t load right away I know to go 
back and try again ata slightly different 
volume level. Riding past the voice- 
announce also improves loadability, to 
near 100 percent. To listen back, unplug 
remote again and also unplug the black 
earphone plug. All this requires a rou- 
tine and some manual dexterity, but 
once you get the hang of it I don't think 
you'll go back to the unmarked system. 
After all, the ultimate “personal compu- 
ter” is attached right to your shoulders, 
complete with total voice recognition — 
why not make good use of it? 


Future Mega-Storage 

While the longest Holmes wafer tape 
can hold up to 70K, and the double- 
sided Sony microfloppy holds an even 
megabyte, there’s no such thing as 
enough capacity. Sony’s plan for the 
next step is to double storage capacity 
to two megabytes per 3.5-inch disk, and 
beyond that, something called “vertical 
recording” promises five to six mega- 
bytes per disk . . . similar to some hard 
disk Winchester systems. 1984 promises 
to be a big year for portable computing 
and some remarkable peripherals: stay 


tuned. РСМ 
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FOR FAST AND RELIABLE DATA ENTRY 
GET RADIO SHACK'S NEW BAR CODE | 

















Our TRS-80 Model 100 is one We started with a truly portable batteries or optional AC 
of the most talked-about, most- workstation with adapter, that's small enough to 
wanted portable comput- five programs fit in your briefcase with room 
ers ever! The reason built in. A four to spare. 
is simple. Ib. “ууоп- Now we've added still another 
der" that exciting dimension to the 
runs on TRS-80 Model 100. 
With the new 


Model 100 Bar Code Reader, 
your data input tasks are made 
easier, faster and more concise 
than with conventional key- 
board data entry. 
This optical scanning de- 
vice is ideal for certain 
retail, wholesale, 
manufacturing and 
administrative 
applications. 


EADER FOR THE TRS-80 MODEL 100 


Billing, couponing and inven- 
tory control are made more ef- 
ficient for warehouses and 
supermarkets. 

And the tracking and tracing of 
manufactured goods becomes 
far easier and more cost- 
effective. 

Even libraries can use the 
Model 100 Bar Code Reader 
for document storage, retrieval 
and tracking. 

The pen-like bar code 
wand is easy to 

















use. Plug it into Model 100's 
standard bar code reader inter- 
face. Load the included cas- 
sette software drivers (recorder 
required) - that are callable 
from Model 100's built-in 
BASIC. And then begin scan- 
ning bar codes for speedy 
input. 

Read Universal Product Code, 
3 of 9, or Plessey bar code for- 
mats that are either litho- 
graphed or computer-printed. 


And the best part of using the 


Model 100 Bar Code Reader is 

the Model 100. 

With the built-in BASIC, you 

can create programs to ana- 

lyze bar code data. 

You can then prepare reports 

with Model 100's personal 

word processing program. 

With the built-in modem, you 

can easily transmit your latest 

bar code files and reports to 
any host computer. 

In addition, Model 100 is an 

address/phone directory, ap- 

pointment scheduler, and tele- 
phone auto-dialer. 

Stop by your nearest Radio 
Shack Computer Center, 
participating store or 
dealer and learn more 
about all the options a 

Model 100 Bar Code 

Reader will give you. 


Model 100 
Bar Code Reader 


ь 99% 
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SOLO 


— SOLITAIRE WITH SPICE 


ow often have you waited 
Н“ at airports because of a 
delay in your flight times? 
You've read through the papers, leafed 
through the magazines and still find you 
have time to kill — somehow. 
Fortunately, you are carrying your 
cherished PoCo which contains all your 
work files, schedules, etc. PoCo also 
contains all you need to while away 
those extra minutes by carrying pro- 
grams stored in it’s memory! Here is a 
program to help you pass the time. . . . 
It is based upon the traditional soli- 
taire game, but I have spiced it up to 





(Robert Delbourgo is a professor of 
physics and computer advocate from 
Hobart, Tasmania, Australia. His son, 
Tino, is the author of a program which 
appears elsewhere in this issue.) 


10 FORISITOINT(VAL (RIBHT$(TIME$,2)) ) sR*R 


By Robert Delbourgo 


make every game different and interest- 
ing. Otherwise (once you have cracked 
the method, that is) solitaire tends to 
become a boring ritual. So/o, as I've 
called my offering, will, I believe, chal- 
lenge you with its variety of settings. 

Firstly, you have the option of choos- 
ing between six different board layouts. 
Secondly, there are five wild pieces, 
randomly sprinkled at the start of every 
game; these are worth five points each, 
in contrast to the normal one point piec- 
es. The aim of the game is to eliminate 
all pieces but one — preferably with the 
last piece beinga normal one and remain- 
ing at the center of the board. If you 
succeed in doing so, your score will 
reduce to zero. 

The program is self-prompting, but I 
should remind you that to remove a 
piece you must place your cursor (using 


PRINT@16@,"5.0-shaped 


arrow keys) over the blank spot into 
which the jumping piece will fall. When 
you press R or L or U or D to displace 
the jumper, do so very deliberately, the 
reason being that INKEY$ must be 
appropriately sampled. 

I won't say a lot about the listing 
except to point out the subroutine 1200 
which moves the cursor, subroutine 
1250 which chooses the jumping piece 
and the subsequent subroutines which 
readjust the locations of the pieces. I 
have used the array A(1,J) to mark (by 0 
or 1) whether a spot is occupied or not. 
When a move is legal a BEEP is heard. 
If you think this is likely to disturb your 
traveling companions, then delete BEEP 
from lines 1264, 1269, 1274 and 1279. 
The program makes extensive use of the 
LINE functions, another triumph for 
Microsoft ingenuity. 


6.Swastika"s:PR 


МО (1) : МЕХТІ: DIMA (9,9) 

20 CLS:608UB1000 

30 S$="SSSS5":0$="00000":+L$="LLLLL" 

40 FOÜRIZ42T028028TEPAQ: РКІМТЕІ, 5$; :PRINTG 
I*6,0$: :PRINTGI*12,L$; :*PRINT8I*18,0$; :NE 

XTI 

50 PRINTG83,SPACES$(4); : РКІМТЕі 22, SPACES ( 

4)3:FORI=B9TOLS9STEP4O:PRINT@I ,SPACE$(3) 

y:PRINT@I+12,5PACE$(3) 3s МЕХТІ: РОКІ =55Т01 

755ТЕР4й: РКІМТЕІ, ЗРАСЕ$ (4) ; : МЕХТІ 

60 PRINT@282,"Variations on Solitaire"; 

70 S0UND2384,20:80UND2384,20: 500№02488, 2 

8: SOUND3134, 40: SOUND3134,4@:SOUND2488, 20 
:SOUND2488, 20: SOUND2793, 20: SOUNDS516, 40: 

SOUND3516,48 

80 GOSUBI@5@:PRINT@@,"SOLO-Bob Delbourgo 
, Hobart,"3;:PRINT@45,"Tasmania,AUSTRALIA 

7005": :PRINTé688,STRING$(28,167); 

90 PRINT6120,"Reduce your score to 0, to 
"ssPRINT@16@,"end with 1 piece at centr 

e."s:PRINT@200,"¢ counts 1, о counts 5 а 

nd";:PRINT824Q,"there are 5 wild o's at 

the"::PRINT@280,"start of each game. REA 

DY?.. "3 3 ЕОКТ=1ТОЗ000: NEXT 

100 GOSUB1050:PRINT69," SOLO - BOARD 

LAYOUT"s;:PRINT@40,STRING$(28,167) ; S PRINT 

@280,"<ESC> to end game anytime."; 

110 PRINT@80,"1.Full board 2.Diamond";: 
PRINT@i20,"3.Vertical + 4.Diagonal X";: 
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INT8240,STRING$(28,167); 

120 PRINT@200,"ENTER YOUR CHOICE": :INPUT 
C: C2 INT(C) : IFCC10RC26THEN120 

150 ОМС GOTO150,200, 250,500, 350, 400 

150 N-99*N:60T0600 

200 N-S59*N:FORIZITO4:FÜRJZQTOBSTEPB:LINE 
(7%1%4165,7%2%2)-(7%1%168,7%1%5),0,ВҒ: (ІМ 
E(7*1*200,7*J*2) -(7*1*203,7*J*5) , 0, BF:A( 
I,1*J) =O: ACI*S, 1 £J) =0: NEXTJ,I 

210 FORIZ1TOS:FORJS2TOBSTEP6:LINE(7*I*16 
9,7*J-8) -(7*1*168,7*J-2) ,Q, BF1LINE(7*I*2 
07,7*J-5) -(7*1*210,7*J-2) ,O, BF:A(I,J) 20: 
ACI*6,J) =0: NEXTJ,I 

220 FORI=1T02:FORJ=3TO7STEP4S:LINE(7#I +16 
3,7*J7-5) -(7*1*168,7*J-2) ,O,BF:LINE(7*I*2 
14,7*J7-5) -(7*1*217,7*J-2) ,0,ВҒ:А(1,0)-0: 
ACI*7,J0) =0: NEXTJ,I 

250 LINE(172,23) -(175,26) ,@,BF:LINE (228, 
23)-(231,28) ,0,BF15(1,4) 20:5 (9,4) ZO:LINE 
(172,37) - (175,40) ,Q,BF:LINE(228,37) - (231 
:490),0,ВР1А(1,6)20:4(9,6)хй 

240 8070800 

250 N=63+N:FORI=1TO3:FORJ=1TOS:LINE(7#I+ 
165,7%1-5)-(7%14108,7%1-2) , UO, BF:LINE(7*I 
*207,7*J2-5)-(7*1*210,7*J-2) ,Q, BF:LINE(7* 
1*165,7*J*37) -(7*1*5168,7*J*40) , B, BF:LINE 
(7*1*207,7*J*37) ~ (7*1*210,7*J*40) ,Q, BF 
260 ACI,J)20:A(I*6,J) 20:5 (I,0*6)20:A5 (I6 
,4%6)-й:МЕХТ0,1:6070800 


300 Ns63*N:FORIZSTO7:LINE(7*1*165,2) -(7* 
I*158,5) ,Q, BF:LINE(7*I*165,58) -(7#1+168, 
51) ,0,BF:LINE(172,7*1-5) -(175,7*1-2) ,8,B 
F:ILINE(228,7*1-8) -(231,7*1-2) ,B,BF:A(T,1 
)=0:А(1,9) =0:А(1,1) =0:А(9,1) =0: NEXTI 

310 ҒОКІ-4Т706:11МЕ(7%1%105,9)-(7%1%168,1 
2) ,UQ,BF:LINE(7*1*165,51)-(7*1*158,54) ,Q, 
BF1LINE(179,7*1-5) -(182,7«*1-2) , 0, BF1LINE 
(221,7*1-8) -(224,7*1-2) ,U0,BF:A(I,2) zQ:A( 
1,8) =0:А(2,1) =0:А (8,1) 0: NEXTI 

320 _ІМЕ (200,16) - (205,19) ,0,ВЕ:_ІМЕ (200, 
44) - (203,47) ,0,ВЕ:_ІМЕ (186,30) - (189,33), 
О, ВЕ: ІМЕ (214,30) - (217,33) ,0,ВЕ:А (35,5) =0 
:8(5,3) =0:4(5,7) =0:А (7,5) =0 

338 6070600 

350 N=75+NsFORI=3TO7:FORJ=3TO7:LINE(7#I+ 
165,7%2-5)-(7%1%188,7%0-2),0,ВҒ:А(1,0)-0 
:МЕХТО, І 

360 65070600 

400 N*7S5*N:FORISSTOA:FORJZ1TOS:LINE(7*I* 
165,7*J-5) - 7*1*168,7*J-2) ,U, BF:LINE(7*I 
*186,7*J2*37) -(7*1*189,7*J*40) , Q, BF: ACI,U 
)zQ0: A ( I£3,0*56) 20: NEXTJ,I 

410 FORI-7TO9:FORJ*3TOA4ILINE(7*I1*165,7*J 
-98)-(07*1*168,7*J-2) OQ, BF:LINE(7*I*123,7* 
J*16)-(7*1*127,7*J0*19) ,Q, BF:A(I,J) 20: A(I 
-6,0%5)-ф:МЕХТУ,1 

420 6070600 

500 1=5:7]=5:6=6+1: 56050В1050: РКІМТеЕЙ, " 
SOLO - MOVEMENT RULES";:PRINT@48,STRINGS 
(28,167) 3$ PRINT880,"Use arrow keys to ро 
Sition";:PRINT@120,"cursor over BLANK sp 
ot, then"; :PRINTGé16Q, "press <U>,<D>,<R> 
or <b> 1f'j 

510 PRINT@200,"the jumping piece is two" 
;:PRINT@240,"spaces up, down, right or"; 
:PRINT8e280,"left of the BLANK piece. "; 
515 [=5:J=5:FORT=1T01000:NEXTT:PRINT@O,” 
GAME #: "6; 

520 ІЕМ=0ТНЕМ550 

530 G0SUB1150: GOSUB1200: G0SUB1250:6G0SUB1 
500 

540 PRINT61Q," SCORE : "№; : 56070520 
550 T=500:FORI=1TO5:SOUNDT , 20: TZ T*2: NEXT 
І: FORT=88TO280STEP4@:PRINT@I ,SPACE$ (28); 
sNEXTISPRINT@122,"Another round <Y/N>?"; 
555 I[$=INKEY$ 

556 IFI$z"Y"ORI$z"y"THENS60 

557 IFI¢="N"ORI$="n"THENCLS: PRINT@4Q, "Ву 
e bye then ..":END 

558 60T0555 

560 CLS:608UBI000:GOTO100 

500 ҒОКК-1705 

610 ISINT(9*RND(1)*1) US INT(9*RND(1)*1) 
520 IFA(I,J)Z1THENLINE(7*I*1586,7*J-4) - (7 
*I*167,7*J]7-3) ,0,B:A(I,J)25 Е(5Е610 

650 МЕХТК:8070500 

1000 FORI=QTOS3STEP7:LINE(17@,1)-(233,1) 
)LINEGI7081,0) (1701,63) 1 NEXTI 

1010 FORJ-2TOS8STEP7:FÜRIZz172T02288TEP7: 


LINE(CI,J)-(I*3,0*3) , 1, BF: NEXTI,J 

1020 LINE(200,30) -(203,33) ,@,BF:FORI=1T0 
9:Е0Кд21Т09:4(1,9)21:МЕХТО,1:А(5,5)є0:ВЕ 
TURN 

1050 РОКІ =0Т02805ТЕР40: РКІМТЕІ, 5РАСЕ$ (28 
) $ s NEXTI: RETURN 

1150 X27*I*1641:Yz7*J-6:LINE(X, Y) - (X*5, Y* 
5) ,O, B: RETURN 

1200 I$=INKEY$ 

1205 IFI$=CHR$(30) THENJ=J-1: ІЕЈ<іТНЕМА = 1 
1210 IFIS$ZCHRS$(SI)THENJzJ*1: IFJ »9ТНЕМО =9 
1215 IFI$=CHR$(28) THENI2I*1: IFI29THENI-9 
1220 ІҒІ$=СНК$ (29) ТНЕМІ=1-1: IFIX1THENI*s1 
1228 IFI$=CHR$(27) ТНЕМ550 

1250 RETURN 

1250 X27*I*1651:Yz27*J-S:T$-2INKEY$ 

1251 IFT$z"U"ORT$z"u"THENG608UB1261:RETUR 
N 

1252 IFT$z"D"ORT$z"d"THENGOSUB1266: RETUR 
N 

1253 IFT$z"R"ORT$z"r"THENGO0SUB1271: RETUR 
N 

1254 IFT$z"L"ORT$z"I"THENGOSUB1276: RETUR 
N 

1255 RETURN 

1261 IFJ<2THENRETURN 

1252 IFA(I,J-1)=@ORA(I,J-2)=@0RA(I,J)<>0 
THENRETURN 

1263 LINE(X,Y-14) -(X*3, Y-11) , OG, BF:LINE(X 
,Ү-7)-(Х%3,Ү-4),0,ВҒ:МеМ-А(1,0-1):А(1,/0) 
-8(1,0-2):А8(1,0-2):0:А(1,0-1)-0 

1264 BEEP:GO0SUB1350: RETURN 

1266 IFJ?7THENRETURN 

1267 IFA(I,d+1)=Q0RA(I,J+2)=Q0RA(I,J)<>0 
THENRETURN 

1268 LINE(X,Y*14) -(X*3,Y*17) ,O,BF:LINE(X 
y)Y*7) - CK 3, Y*10) , 0, BF: NZN-ACI,J*1) 

1269 А(1,0)-А(1,7%2):А11,02%2)-0:А(1,0%1) 
=0: ВЕЕР: GOSUB1350: RETURN 

1271 IFI>7THENRETURN 

1272 IFA(I*1,J) x00RA(I*2,J) :00RA(I,U)«2Q 
THENRETURN 

1273 LINE(X*14,Y) -CX*17, Y* 3) ,O,BF:LINE(X 
%7,Ү)-(Х%10,Ү%5),0,ВҒ:М-М-А(1%1,2) 

1274 А(1,0)-А(1%2,07):А(1%2,0/)<0:А(1%1,7) 
=0: ВЕЕР: GOSUB1350: RETURN 

1276 IFI<2THENRETURN 

1277 ІҒА(1-2,0)-00КА(1-1,0)-Й0КА(1,0)<>08 
THENRETURN 

1278 LINE(X-14,Y)-(X-11,Y*3) ,O,BF:LINE(4X 
-7,Y) - CX-4,Y*3) ,@,BF:N=N-A(I-1,d) 

1279 8(1,0)-А(1-2,/):А(1-2,0)-0:А(1-1,/) 
zQ:BEEP:GOSUB1350: RETURN 

1300 X27*I*154:Yz7*J-6:LINE(X, Y) - (X45, Y* 
5) , 1,B: RETURN 

1350 IFA(I,J)S1THENLINE(X,Y) - CX 3, Y* 3) ,1 


,BF 

1368 IFA(I,J)sSTHENLINE(X, Y) - CX $3, Yt 3) ,1 
B 

, 

1570 RETURN РСМ 
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new house with a larger room to work on your computer? Or 

do you have other needs requiring loan assistance from your 
"friendly" financial institution? Here is а group of financial programs 
to help you decide if you can, or almost can, afford it! 

The program is divided into six programs as follows: 

Program | — Payment Amount, computes the Payment Amount 
when Loan Value, Annual Percentage Rate (APR), Number of 
Payments Per Annum, and Length of Loan (in years) are given. 

Program 2 — Present Value, computes Loan Value when APR, 
Payment Amount, Number of Payments Per Annum, and Length of 
Loan are given. 

Program 3 — Number of Payments, computes Number of Pay- 
ments when APR, Payment Amount, Number of Payments Per 
Annum, and Loan Value are given. 

Program 4 — Amortization Schedule, lists on the display an 
abbreviated amortization schedule which includes Period (payment 
number), Principal (amount of payment applied to principal), Inter- 
est (amount of payment applied to interest), and Balance. 

Program 5 — Printout, provides an amortization schedule prin- 
tout. A header is printed on each sheet, showing the Loan Amount, 
Payment, APR, and Payments per annum. The following is printed 
in columnar format: Payment Number, Interest Payment, Principal 
Payment, Balance, Cumulative Interest, and Cumulative Principal. 
The program paginates the listing — each sheet listing 48 periods. 
For example, see Table 1. 


р: you have a dire need to buy new computer equipment or a 


(William T. Stauffer is an electromag- 
netic radiation effects projects engineer 
at the White Sands Missile Range in 
New Mexico. He has had more than 20 
years experience working with comput- 
ers — eight months with the Model 100 
— and has published a number of com- 
puter programs and related articles, 
including one in the October issue of 
PCM.) 


























LOAN AMOUNT 
PAYMENT 


FAYMENT 
NUMBER 


INTEREST 
PAYMENT 


$0.00 
$15.00 
$14.76 
$13.51 
$12.24 
810.95 
$9.54 
$8.32 
56.98 
$5.62 
54,24 
$2.85 
$1.43 


"D со ^ O- Ol ы ane © 


Program 6 — Credit Card Approxi- 
mation, is an *orphan" program which 
approximates the cost and time of pay- 
off for a credit card when balance and 
APR are given. This program assumes a 
fixed interest rate, payoff based on 18 
months, one payment per month, min- 
imum payment made each month, and 
minimum payment of $10. 

These programs are all self-prompting 
and all that is required is to follow the 
instructions and enter data as requested. 
Upon the completion of each program, 
if a key number | through 5 is pressed 
(NOTE: these are number keys, NOT 
function keys), the program will auto- 
matically transfer to the selected pro- 
gram, if any other key is pressed, the 
program menu will be displayed. To end 
the program, press BREAK and then 
function key F8. 

Programs | through 5 are interactive. 
When data is once entered, these data 
will remain in the computer and, when 
prompted for further data, if ENTER is 
pressed, the data as shown on the dis- 
play will not be altered. 

In programs І through 4, when the 
last data is entered, the Loan Value, 
Interest Rate, Payment Amount, Total 
Interest, Total Payments, and Number 
of Payments will be displayed. A similar 
display will be presented upon comple- 
tion of the Amortization Schedule, Pro- 
gram 6. If a printer is connected, this 
display may be printed by pressing 
PRINT. 


AMORTIZATION SCHEDULE 


$1,200.00 
$108.88 


PRINCIPAL 
PAYMENT BALANCE 

$0.00 
$92.88 
594,12 
$95.37 
596.64 
$97.93 
599.24 
8100.56 
$101.90 
$103.26 
$104.64 
$105.03 
$107.43 


$1,200.00 
$1,107.12 
$1,013.00 
$917.63 
$820.99 
$723.06 
$623.82 
$523.26 
$421.36 
$318.10 
$213.46 
8107.43 
$0.00 


The program includes extensive use 
of spaces and tabs to provide a 40- 
column listing. This feature provides a 
more easily readable format on the 
PoCo display. To provide a "neat" print- 
out, save the program in ASCII format 
and print it out from the .DO file as 
follows: 


1) Load the FINANCIAL PRO- 
GRAMS program 

2) Press SHIFT and BREAK 

3) Press F3 

4) Туре: FINAN”,A 


CUMULATIVE 
INTEREST 


$102.26 
$105.11 
8106.54 


16 % INTEREST 
12 PAYMENTS PER YEAR 


CUMULATIVE 
PRINCIPAL 


$0.00 
$92.88 
$187.00 
$282.37 
8379.01 
$476.94 
$576.18 
$575.74 
8778.04 
8881.90 
$985.54 
$1,092.57 
$1,200.00 


$0.00 
$15.00 
$30.76 
$44.27 
556.51 
$67.46 
$77.10 
$85.42 
$92.40 
$98.02 





5) Press F8 

6) Press SHIFT and PRINT 
7) Type: 40 

8) Press ENTER 


The complete program, shown in 
Program Listing 1, occupies 4738 bytes 
of memory, which may be a little rich 
for your blood if you have an 8K memory 
PoCo. The program may be modified to 
delete programs 5 and 6 and remove 
some of the "garbage" using the follow- 
ing procedure: 


see and hear 
what's new for your 


TRS-809 
Color 





Computer 


The Largest Color Computer Exhibition Under One Roof 


* "CoCo Community" Breakfast — Sat. 


x Seminars On Many Subjects 
ж See All The Latest CoCo Products 


Sun. April 1 


8 a.m. Advance Ticket Prices: 
$ 8 Three-Day Ticket 
$ 6 One-Day Ticket (specify day) 
$11 Breakfast Ticket 

Fri. March 30 — 7 p.m.-10 p.m. 

Sat. March 31 — 10 a.m.- 6 p.m. 


— 11 a.m.- 4 p.m. 


HYATT-REGENCY NEW BRUNSWICK 


Sponsored by the RAINBOW 
The Premier Color Computer Magazine 


Information: Са// (502) 228-4492 


TRS-80 is а registered Trademark of Tandy Corp. 
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1) Delete lines 120-190. 

2) Delete “FOR PRINTOUT PRESS 
5FOR AMORTIZATION SCHED- 
ULE PRESS 6" from line 210. 

3) Change “6” to “4” in line 240. Line 
240 will then read: 

240 IF SCOORS>4 GOTO220 

4) Delete lines 810-1510. 


This truncated program occupies 1990 


bytes of memory and is shown in Pro- 
gram Listing 2. 

These programs were developed and 
used on a TRS-80, Model 1 several 
years ago and have been adapted for the 
use on the PoCo. They have been used 
many times as a “service” to friends and 
have been distributed (in the Model | 
format) to an appreciable number of 
other computer users. 

If you would like to have tapes of the 


programs, forward a tape with a self- 
addressed, stamped return label to: 


Bill Stauffer 
204 Tooele 
WSMR, NM 88002 


If you want any additional informa- 
tion or to make any comments, call 
(505) 678-3966 or leave in CompuServe 
70435,237. 
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Listing 1: 
100 ЖЕКЕ ЕЕЕ ЕЕ ЧЕЧЕ ЗЕЕ ЕЕЕ ЗЕ НЕЧЕ ЗЕ ЗЕ ЗЕЕ 50508780 
110 '* FINANCIAL PROGRAMS * 390 NzN*1:PISI*BA: PPzPM-PI:TI-TI-*PI 
кокк EEE ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ Ж 400 IFPP>BAGOTO47@ 
120 '* EQUIPMENT USED: * 410 ВА-ВА-РР 
130 '* TR8-80 COMPUTER MODEL 100 ж 420 JzsJ*1 
140 '* EPSON MX-8@ PRINTER * 430 IF J>5 8070460 
кке EERE RE ER EEE RHEE EHH HEE EH 440 60508790 
150 '* BY: * 450 65070390 
160 7% ЮМ. T. STAUFFER * 460 INPUT 
170 '* 204 TOOELE * ы TO CONTINUE, PRESS 'ENTER'"; 
180 '* WHITE SANDS MR, NM 88002 * X:020:608UB780:G0T0390 
190 '+ S05 578-3966 * 470 РР=ВА 
зижжююю юю юю юю юю юю юю REEEEERREEEE 480 BA=0 
200 CLS: 490 1-1%1 
PRINT813,"MORTGAGE LOAN": 500 IF J»5 8070460 
AS="SSHHHHH. HH" 510 N=N-1 
210 PRINT"FOR PAYMENT AMOUNT 520 INPUT 


PRESS 1 FOR PRESENT VALUE 
PRESS 2 FOR NUMBER OF PAYMENTS 
PRESS 3 FOR AMORTIZATION SCHEDULE 
PRESS 4 FOR PRINTOUT 
PRESS 5 FOR CREDITCARD APPROXIMATION 
PRESS 6 
220 S$-INKEY$: 
230 SsVAL (S$) 
240 IFS«10RS?6 68070200 
250 ОМ560Т0260,500,540,3570,840,1550 
260 CLS: 
PRINT" < PAYMENT AMOUNT >": 
G0SUBS80:608UB610: 5058620 
270 PMsPV*I/(1-CI*I)^-N) 
280 PM=INT((PM+. 005) #108) /180 
290 6070660 
300 CLS: 
PRINT" < PRESENT AMOUNT >": 
GOSUBS80:GOSUB610: 60508040 
310 РУ=РМж(1- (1+1) ^-М) /I 
320 PV=INT((PV+. 005) +100) /100 
550 68070660 


IF 5%="" 6070220 


5 TO CONTINUE, PRESS 'ENTER'"; 
X:GOSUB660 

INPUT 

е ТО CONTINUE, PRESS 'ENTER'"; 
X: 60508780 

IF INKEY#="" 68070540 
CLS:PRINT@256,"TOTAL INTEREST IS"; 
PRINTUSINGA$;TI 

8070220 

PRINT"ANNUAL INTEREST RATE s"; 

AI; "X" 3 : INPUT AI 

PRINT"PAYMENTS PER ANNUM =";АР;: 
INPUT AP 

1= 1%, 01/АР: RETURN 

PRINT"NUMBER OF YEARS z";NR;: 
INPUT NR: NsNR*AP: RETURN 
PRINT"PRESENT VALUE = $"; 

PRINT TAB(20) USING A$;PV;: 

INPUT PV: RETURN 

PRINT"AMOUNT OF PAYMENT =$"; 
PRINTTAB(20) USINGA$;PM;: 

INPUT PM: RETURN 


340 CLS: 660 CLS:PRINT:PRINT"LOAN VALUE"; 
PRINT" < NUMBER ОҒ PAYMENTS »" 670 PRINTTAB(25) USINGAS; PV 
: 560508580: 60508220: 60508640 680 PRINT 
350 N--(LOG(1-(I*PV/PMD)))/LOG(1*I) "INTEREST RATE "s 
360 6070660 AI,"Z" 
370 CLS: 690 PRINT"PAYMENT AMOUNT"; 
PRINT" < AMORTIZATION SCHEDULE >" 700 PRINTTAB(25) USINGAS; PM 
:60508580: 60508620: 60508640 710 РКІМТ "ТОТА. INTEREST"; 


380 №0:Т1=0: ВА=РУ: РР=0:РІ=0: 
B$=" ЯНЕ, HHH. HH" 1770: 
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PRINTTAB(25) USINGAS; МЯРМ-РУ 
PRINT"TOTAL PAYMENTS"; 





740 PRINTTAB(25)USINGA$; N*PM "NUMBER PAYMENT PAYMENT 


750 PRINT"NUMBER OF PAYMENTS"; BALANCE INTEREST PRINCIPAL 
760 PRINTTAB(3Q) USING" #####" 3 № 1860 LPRINT 
778 6070220 1070 LPRINT USING" ####"3L3 
78@ CLS:PRINT 1080 LPRINT USING Z$;IP; 
"PERIOD PRINCIPAL INTEREST BALANCE 1090 LPRINT USING 2$;PP; 
790 PRINTUSING"###"3N, 1100 LPRINT USING 2$; ВА; 
800 PRINTUSINGB$;PP,PI,BA: RETURN 1110 LPRINT USING 2$;СІ; 
810 '* AMORTIZATION SCHEDULE PRINTOUT * 1120 LPRINT USING 2$;CP 
AI = ANNUAL INTEREST RATE 1130 IF BA<>®@ 80701160 
AP = PAYMENTS PER ANNUM 1140 LPRINT CHR$(140); 
PV = PRESENT VALUE 1150 6070200 
PM = PAYMENT AMOUNT 1160 IF PM<BA 60701240 
820 ' РІ = PAYMENT INTEREST RATE 1170 LzL*1 
IP = PAYMENT INTEREST 1180 IPSINT((10Q*PI*BA)*.5)/100 
BA - BALANCE 1190 РР-ВА 
PP = PAYMENT PRINCIPAL 1200 ВА=0 
К = PAGE COUNTER 1210 CI=CI+IP 
CI = CUM. INTEREST 1220 CP=CP+PP 
830 ' L = PAYMENT NUMBER 1230 60701070 
CP = CUM. PRINCIPAL 1240 L=L+1 
840 CLS:PRINT 1250 ІР-ІМТ((100%РІ%ВА)%.5)/100 
" < AMORTIZATION SCHEDULE PRINTOUT > 1260 PPzPM-IP 
850 PRINT"ANNUAL INTEREST КАТЕ z";AIj; 1270 ВА-ВА-РР 
"4"; INPUT AI 1280 CI=CI+IP 
860 PRINT"PAYMENTS PER ANNUM =";АР;: 1290 CP=CP+PP 
INPUT АР 1300 К=К+1 
870 PRINT"PRESENT VALUE = $"; 1310 IFK<48 60701070 
880 PRINT USING А$;РУ;: INPUT РУ 1320 Кей 
890 PRINT"AMOUNT OF PAYMENT = $"; 1330 LPRINT CHR$(140); 
900 PRINT USING 8$;PM;: INPUT РМ 1340 6070960 
910 PRINT 1550 IT=0:N=0 
, PRESS <C> TO CORRECT DATA 1360 CLS 
ж ж TURN ON PRINTER жж 1370 PRINT 
920 C$-INKEY$: IF C$="" 8070920 "<< CREDIT CARD PAYOFF APPROXIMATION >> 
930 IF C#="C" 8070840 1380 PRINT 
940 L=0: ІР=0: РР=0: BA=PV: СІ=0: СР=0: 1390 INPUT"ANNUAL INTEREST ВАТЕ"; АІ 
Каф: PI=AI/AP/100 1400 І=А1/12 ‘MONTHLY INTEREST RATE 
950 2$2"$$444 9 , RHR, HH" 1410 INPUT"BALANCE DUE";B 
980 LPRINT а 1420 МІ= (ВжІ) /100 'MONTH INTEREST 
AMORTIZATION SCHEDULE 1430 ВІ=В+МІ 'MONTH BALANCE * 
978 LPRINMT анааан INTEREST 
prora Uum Iu 1440 Pz.05*BI 'PAYMENT 
prom 1450 B=BI-P 
980 LPRINT "LOAN AMOUNT"; : 1460 ITSIT*MI:NzN*1 
LPRINT USING 2$;PV; 1470 IF B>i@ 60701420 
990 LPRINT 4 1480 PRINT"TOTAL INTEREST ="; 
"РАГр'Х INTEREST 1490 PRINT USING A$;IT 
1000 LPRINT "PAYMENT "ы: 1500 PRINT"NUMBER OF PAYMENTS = "3N 
LPRINT USING Z$;PM; 1510 8070220 
1010 LPRINT » 1520 ЕМО 
"SAP;"PAYMENTS РЕК YEAR 
1020 LPRINT "--------------------------- Listing 2: 


------ 100 “кке кекете еке кке кенен 


1050 ІРКІМТ 110 7% FINANCIAL PROGRAMS + 
1040 LPRINT ++ +++ +++ + + ++ ЗЕЕ ++ ++ + ЗЕ ЗЕ ++ ++ ++ ЗЕ ЗРЗЕ +++ 


"PAYMENT INTEREST PRINCIPAL 200 CLS: 
CUMULATIVE CUMULATIVE PRINT@13,"MORTGAGE LOAN": 
1050 LPRINT AS="SSHHREH. HH" 
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210 РКІМТ"ҒОК PAYMENT AMOUNT 
PRESS 1 FOR PRESENT VALUE 
FRESS 2 FOR NUMBER OF PAYMENTS 
PRESS 3 FOR AMORTIZATION SCHEDULE 
PRESS 4 
220 S$=INKEY$: 
250 S=VAL (S$) 
240 IFS<10RS>4 60T0200 
250 0М55070260,500,540,570,840,1550 
260 CLS: 
PRINT" < PAYMENT AMOUNT >": 
60508580: GOSUB610: 60508220 
270 РМ=Руж1/(1- (1+1) ^-№) 
280 РМ= ІМТ ((РМ+, 005) +100) /100 
290 6070660 
300 CLS: 
PRINT" < PRESENT AMOUNT >": 
GOSUBS80: GOSUB4618: 60506640 
310 PVsPM*(1-(1*I)^-N) /I 
320 PV=INT((PV+, 085) #108) /108 
550 6070660 
340 CLS: 
PRINT" € NUMBER ОҒ PAYMENTS >" 
: 608UB580: GOSUB620: GOSUB64Q0 
350 Ns-(LOG(1-(I*PV/PM)))/LOG(1*I) 
360 8070660 
370 CLS: 
PRINT" < AMORTIZATION SCHEDULE >" 
:608UB580: G08UB620:608UB640 


IF 5%="" 68070220 


380 №0:Т1=0: ВА=РУ: РР=0:РІ=0: 
B=" HHHH, HHH. 48 ":J7Q: 
GO0SUB780 
390 NzN*1:PIZI*BA:PPzPM-PI:TIZTI-*PI 
400 ІҒРР>ВА8070470 
410 BA=BA-PP 
420 J=J+1 
430 IF J>5 8070460 
440 60508790 
450 68070590 
460 INPUT 
"n TO CONTINUE, PRESS 'ENTER'"; 
X1:020:605UB780:60T0399 
470 РР-ВА 
480 ВА=0 
490 02941 


MEMORY 
MODULES | 


IF 1>5 6070460 

МеМ-1 

INPUT 

й TO CONTINUE, 
X: G0SUB650 

INPUT 

TO CONTINUE, PRESS 
X:605UB780 

IF INKEY$="" 65070540 
CLS:PRINT@256,"TOTAL INTEREST IS"; 
FRINTUSINGA$;TI 

6070220 
PRINT"ANNUAL INTEREST RATE ="; 

AI; "4"; : INPUT AI 
PRINT"PAYMENTS PER ANNUM z":4P;: 
INPUT АР 

IzAI*.01/AP: RETURN 

PRINT"NUMBER OF YEARS s";NR;: 

INPUT NR: NzNR*AP: RETURN 
PRINT"PRESENT VALUE = $"; 
PRINT TAB(2@) USING A¥;PV;: 

INPUT PV: RETURN 
PRINT"AMOUNT ОР PAYMENT =$"; 
PRINTTAB(20) USINGA$;PM;: 

INPUT PM: RETURN 
CLS:PRINT:PRINT"LOAN VALUE"; 
PRINTTAB(25) USINGA$; РУ 
PRINT 

"INTEREST RATE "4 
А1; NOSE 
PRINT"PAYMENT AMOUNT"; 
PRINTTAB(25) USINGAS; PM 
PRINT"TOTAL INTEREST"; 
PRINTTAB(285)USINGA$; МЯРМ-РУ 
PRINT"TOTAL PAYMENTS"; 
РКІМТТАВ (25) USINGAS; МҰРМ 
PRINT"NUMBER OF PAYMENTS"; 
РКІМТТАВ (50) ОЅІМС"#####"; N 
770 6070220 
780 CLS:PRINT 

"FERIOD PRINCIPAL 
790 PRINTUSING"4414";N, 
800 PRINTUSINGB$;PP,PI,BA: RETURN 
1520 END 


PRESS 'ENTER'"; 


'ENTER'"; 


690 
700 
710 
720 
730 
740 
790 
760 


INTEREST BALANCE 


“Radio Shack Model 100 
МЕС РС-8201 


а Suggested List $120.00, Purple price › $59.95 95 Bech, 
` e Lower power CMOS design. sy 


^t ° Simple installation-instructions included. | s 
.* 30 дау satisfaction. Мате or your. money back. 


* 1 Year warranty. 


e Next day shipment via | UPS included in price. | T 
е Optional Memory Test program $15. (боло 
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e PURPLE COMPUTING 
22 4807 Calle Alto a 
| Camarillo, Ca. 93010 - 

; ым, | 





How Го Make Your 


RAM Files inv IS 


ou may have some programs and 

Y text files stored in your Model 
100 which you would like to hide 

from inquiring eyes. Here is a program 
which will make filenames invisible to 
the menu screen and FILES command. 
To use the program, RUN it and 
enter the filename or program name 
which you would like to hide. Be certain 
to include the .DO or .BA extension. If 
the file does not exist in the computer, 
you will receivea "FILE NOT FOUND" 
message. If the file exists, it will become 
invisible and the computer will return to 
the menu. An invisible text file can be 
accessed by entering the TEXT pro- 
gram and entering its name in response 
to: “File to edit?" An invisible BASIC 
program can be loaded either by enter- 
ing BASIC and typing LOAD“(filename)” 
or by typing FILENAME.BA after 


(Ronald Paludan is a freelance pro- 
grammer living in Tucson, Arizona.) 


By Ronald Paludan 


SELECT: on the menu screen.To make 
an invisible text file or program visible 
again, simply run the program again 
and enter the filename. 

An invisible file can be killed from 
BASIC (providing you know the file- 
name). It also uses the same amount of 
memory as it would when visible. Hav- 
ing invisible files will not increase the 
number of files that the Model 100 can 
have in RAM. 


How It Works 

The Model 100's directory begins at 
location 63842 (decimal) and ends at 
location 64139. Each program and file 
in the Model 100 has an 11 byteentry in 
the directory. The first byte, called the 
"Directory Flag," determines the type 
of file, the second and third bytes are 
pointers to the file's location and the 
remaining bytes contain the filename. 





м, 


iple 


Sew PEM ule ёе 


The program first searches the directory 
for the requested filename and then 
alters the Directory Flag by changing 
the status of the third bit using the XOR 
keyword (line 120). If the third bit 
equals zero, it is changed to a one which 
makes the file invisible. If the third bit is 
equal to one, the opposite occurs. 

I should make two cautionary notes. 
First, the security provided by this pro- 
gram is not absolute. It is still possible 
for someone to find the filename of an 
invisible file by PEEKing the directory. 
Second, before experimenting with this 
program, save all important files and 
programs onto tape. While experiment- 
ing I found several interesting ways to 
destroy files and create cold starts by 
poking around the directory. Гуе tested 
this program extensively, but an error in 
typing it in could result in unfortunate 


consequences. 
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Let Your 
Portable 
List Those 


Variables 


By Larry Randall 


re you still letting your computer 
A= while you do the heavy work? 

On many occasions over the last 
several years | have wanted to add some 
code to, or make major changes to, an 
existing program. On more than a few 
of those occasions | used variables that 
were already in use, and crashed the 
program. The solution to this dilemma 
was to find what variables were in use by 
what I call the “search, scribble and go 
blind" method. Not any more! I believe 
teaching the “100” to do the job is a 
better way. 

This new way І call Variables Lister 
or Lister for short. Lister will search 
your program, find all the variables in 
use, (including arrays and all their sub- 
scripts) sort them for alphanumerical 
order and save them in a file without 
duplication. 


Operation 

First translate the program you wished 
searched into а“. DO" file, then run List- 
er. Answer the question on the screen 
with the name of the file you just turned 
into text. Don't type the .DO, however. 
If everything is running okay the word 
SEARCH will be displayed on the 


screen. It will flicker, and you will hear a 


(Larry Randall, who has been using 
computers since 1975, is a retired Navy 
technician and writes software both for 
fun and for his job with Burroughs 
Corp.) 
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chirp with each new line searched. Search 
mode will end with two beeps and 
SORTING will be displayed. Sort mode 
will end with two beeps and COM- 
PLETED will be displayed. All the var- 
iables will be stored in VLIST. 


Timing 

l used a 6184 byte calc program to test 
timing. It took І minute and 51 seconds 
to complete the task. The test program 
had 174 valid equates of which 121 
made it to the sorter. After deleting the 
remaining duplicates there are 52 indi- 
vidual variables. Considerably faster 
and more efficient than the old "55 СВ" 
method. Because of time І have not 
included in the program a search for 
"LET." (Modern programmers don't 


use LET anymore anyway. Do we?) If 


you do use LET include this program 
line. 


155 S3=INSTR(A$,“LET”):1FS3 
>0THENS3=S3+2:1FS3>SH 
ANDS3«EPTHENSH-S3 


This increased my test time by 16 sec- 
onds. Also, the REMs add 3 seconds. 


Eccentricities 

There will be occasions when strange 
things appear as variables in the VLIST 
file. Asan example, when searching List- 
er itself, notice line 10. *MAXFILES" 
will be listed as a variable, as will 
"INSTR(AS, " from line 80. These are 


rare, easily identified and edited out. 
For Lister to watch for every oddball 
occurrence of this type would seriously 
increase its run time. 


Line Analysis 
0-30 Initialize and open files. DIM 
А8 (max variables expected). 
Get a line and make a noise. If 
EOF go to SHELL SORTER. 
80 Find the first “=” in the line 
and place first pointer there. 
If none go get new line. 
Chop off all statements to the 
left of the one containing the 
equals sign. Set second poin- 
ter to left edge. 
130 If REM disregard and get new 
line. 
Look for the five most com- 
mon things that will appear to 
the left of a variable, and 
place second pointer to the 
right of it. 
210 If it is an "IF" go chop it off. 
230 Between pointer #1 and #2 is 
the variable. Put it in an array. 
Forget it if it is the same as the 
last one. 
250 If space precedes variable chop 
it off. 
270 Chop off left end and go for 
more. 
Really fast SHELL SORT. 
Save to VLIST while eliminat- 
ing the remaining duplicates. 


50-60 


100-110 


150-190 


290-350 
370-380 


The listing: 


0 КЕМ VARIABLES LISTER v2.1 

1 REM by: LARRY RANDALL 

2 REM 123@6 TERI DR. 

3 REM POWAY, CA. 92064 


10 CLEAR2@Q@8: DEFINTA-Z:MAXFILES=2: DIMAS ( 
500) 

20 CLS:PRINT"VARIABLES LISTER":PRINT:INP 
UT"NAME OF '.DO' FILE";FN$:1IFLEN(FN$)«10 
RLEN(FN$) >5ТНЕМ20 

50 OüPENFN$*",.DO"FORINPUTASI1: OPEN"VLIST.D 
O"FOROUTPUTAS2:CLS 

А) REN === BEI LINE === 

50 IFEOF (1) THEN29@ELSE:LINEINPUT#1 , AS 

60 PRINT@95,CHR$(27)+"K"3 "SEARCH": SOUND! 


000,1 

78 КЕҢ ==== FIND EQUATE ==== 

80 ЕР= ІМТК(А$, "=") : ІҒЕР- ТНЕМ50 
30 REN ---- CHOP OFF LEFT END =-=- 


100 SI2INSTR(A$,":"):IFS8120ANDS1«4EPTHENA 
$-RIGHT$(A$,LEN(A$)-51):60T080 

110 IFSI?SHANDSIXEPTHENSH*81 

120 REM ---- DISREGARD REM ---- 

130 50=1МТК(А$, "КЕМ" ) : IFSO>BANDSO<EPTHE 
N50 

140 REM---- FIND VARIABLE LEFT EDGE ---- 
150 872INSTR(A$,"FOR"): IF57»0THENS7287*2 
: IFS7>SHANDS7<EPTHENSH=S7 

160 82-7INSTR(AS,"IF"):1F82»0THENS2782*1: 
IF82»SHANDS2CKEPTHENSH282 

170 54ЗІНЗТЕ (АФ, "ЕІ ЗЕ") : IFS4>8THENS4=S4+ 
3: ITFS4>SHANDS4<EPTHENSH=S4 

180 S6=INSTR(A$,"THEN"): IF86»?QüTHENS6-86* 
3: IFS6>SHANDS6<EPTHENSH=S6 

190 SS=INSTR(A$," ") : ІЕ55 У 5НАМ055<ЕРТНЕМ 
SH=S5 


АР A UR NNN 


Це) 


COMPUTER GRADE 
DATA TRAC 


BLANK CASSETTES 


C-05, C-06, C-10, C-12, C-20, C-24, C-30 


From the leading supplier of Computer Cassettes, 
new, longer length C-12's (6 minutes per side) provide 
the extra few feet needed for some 16K programs. 


c BASF-LHD (DPS) world standard tape. 
Premium 5 screw shell with leader. 


c Internationally acclaimed. 
Thousands of repeat users. 


cA Error Free « Money back guarantee. 


500 C-12's or C-10's — 38е each CASSETTE STORAGE CADDY 
(м ‘labels, add 42 e Shipping $17 500 | Holds 12 cassettes 
500 Boxes 13€ ea. є Shipping 510 /500 | w/o boxes 


Includes edge labels 
TRACTOR FEED e DIE-CUT 
е BLANK CASSETTE LABELS — 
. WHITE: 52.00/100 520.00/1000 
— COLOREO LABELS е Pastels - FREE є 
МЕМ Red. Blue. Green. Yellow, Lavender | 1 CADDY WITH EVERY 
$4.00/100 $30 00/1000 4 002. CASSETTES PURCHASED 


and index card 





= Call: 213/700-0330 ‘MEDIATE SHIPMENT (<> 


on Credit Card Orders 


ORDER тм 9525 #P3 
NOW.. D : YORK 10 DENT eA ean 




















200 REM ---- DISREGARD 'IF' ---- BE қағып жа көсені CADRE ONE à зар дав ntm i 
210 IFS2=SHANDS2>@THEN27@ a ст FOE] neus #Р3 ш 
220 REM ---- DON'T SAVE DUPES ---- i (панно ORK 10 
230 А$(К+1) =МІр$ (A$,SH* 1, EP-SH-1) : IFAS(K sola зриву Wes M 
+1) X AS(K) THENK=K+1 ELSE27Q i routs ty Я 

240 REM ---- CHOP OFF SPACE ---- 1 ET і 
250 IFLEFT$(AS(K),1)2" "THENAS(K)=RIGHT$ | Й check here 0 i 
(A$ (K) ,LEN(AS CK ) -1) [| кте мәні В 
260 REM ---- CHOP OFF LEFT OF ‘=’ ---- n Comnena Sas, 
27@ SHz0:A$-RIGHT$ (A$,LEN(A$) -ЕР):60Т08й | and USA oS i 
280 REM ---- SHELL SORT ---- |= Canada & Menco — B 
290 15=K:BEEP:PRINT@95, "SORTING": BEEP те one семен Aou баны B 
300 15-ІМТ(75/2):1Ғ15-0ТНЕМ370 MEE or bones арти 

510 22=1:13=К-15 I CHECK OR MO. Charge to 7 | DUPLICATING І 
328 11=72 По om | ser В 
330 24z21*25:IFA$ (21) €2A$ (24) ТНЕМ350 "Ше Н 
340 A$-A$(21):A$ (21) 58$ (24) 16$ (24) =А$:211 Бъ Бар.----- В 
=71-Z5: 1FZ1=>1THEN33@ g Name БЕРЕ zur 
350 72-22%1:1Ғ12215ТНЕМ500Е|8Е520 ; 
360 REM ---- SAVE (NO DUPLICATION) ---- Й Address nein 

370 PRINT#2, "VARIABLES FOR "s;FNS:FORI=1T Ё cy 00 Ге e 
0К:1ЕА$(1)<‹>А$(1+1)ТНЕМРЕ1МТ#2,А$(1);" " В i 
й d Signature Phone "Tras a 
380 NEXTICLOSESBEEPIPRINTEUS, COMPLETED" рисот г make S modal -Drk Wi 


: BEEP РСМ 
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Examining Your 
Machine's Capabilities 


By Willis Rollins 


Many of us buy our computers and 
immediately sit down, plug them in, and 
start typing and fumbling our way 
through. If you're of this type then you 
might as well read on. 

One of the most powerful features of 
the Model 100 is the built in text soft- 
ware. Many of us have completely over- 
looked the real power of this software 
either because we're not into writing 
text, or we just use it enough to transfer 
our text files to a larger computer with 


detailed word processing ability. One of 


the functions that the text software does 
best is in editing BASIC programs. Few 
of us have realized how powerful this 
editing capability really is. If you've 
noticed in some of the other magazines, 
there have been programs for editing 
your BASIC programs and merging BASIC 
programs. Why have programs to do 
this when the text software will do it 
rapidly and easily. 

Let's ехатіпе а couple of the capabil- 
ities. If we have two BASIC programs 
that we would like to merge, we can 
RUNand SHIFT BREAK the first one. 
Saving the program as ASCII is the 
next step. Simply SAVE"RAM: 
NAME'",A. From this point you have 
two ways to merge. The first is to RUN 
and SHIFT BREAK the second pro- 
gram, then type MERGE"RAM:NAME 
.DO” (the program ASCII saved as a 
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DO file above). The disadvantage of 


this type of merging is that duplicate 
line numbers are changed to the incom- 
ing file line contents. One definite advan- 
tage is that of speed. 

The second method of merging two 
programs is after saving the first as an 
ASCII file with the .DO extension, 
RUN and SHIFT BREAK the second 
program. Transfer the program to text 
storage by the EDIT command. Pro- 
vided you have enough room in memory, 
use the SELECT function key (F7) at 
the begining of the program and the 
CUT function key (F6) at the end of the 
program. This will transfer the program 
to the paste buffer if enough memory is 
available. Return to the main menu and 
enter the previously ASCII-saved .DO 
file. With the first file in the text mode, 
move the cursor to the end of the pro- 
gram and use the PASTE key to return 
the contents of the paste buffer to the 
text file. You now have a merged text 
file version of the two original BASIC 
programs. At this point, if duplicate line 
numbers are present, simply renumber 
using the deletion and insertion text 
modes. When finished editing, return to 
the main menu and to BASIC. Type 
LOAD"RAM:NAME.DO."It maytake 
a few seconds for a large file to be 
loaded as it is converted from ASCII to 
binary. Then RUN. Though this method 





seems to take a little longer, it has the 
advantage of not deleting any of the line 
numbers. Just keep in mind that the 
memory requirements are twice as large 
as the second program which is trans- 
ferred to the PASTE buffer. 

Want to delete a lot of line numbers, 
say 10 lines numbered from 200 to 300 
in your BASIC program? It's easy if you 
transfer those lines using the EDIT fea- 
ture to the text mode. Using a technique 
similar to the above, function key (F7) is 
used at the start of the to-be-edited pro- 
gram and the cut key (F6) is used at the 
end of the transferred part of the pro- 
gram. This moves that part to the paste 
buffer. Return to the BASIC program 
using the F8 key. Your 10 lines are now 
stored in the paste buffer and are no 
longer a part of the BASIC program. If 
you decide that the removed parts are 
necessary after all, return to the EDIT 
text mode, use the PASTE key, and 
return to the BASIC program using the 
F8 key. This will work provided you 
have not used the paste buffer in the 
interim. 

Don't be scared to try out the edit and 
text mode features with your BASIC 
programs. You will find very little need 
for many of the editing, merge, and 
renumber-type programs you see. Yes, 
they do һауе ап advantage here and 
there, but let the 100 do it. 
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Ask your dealer for the Porta™ series 
from Skyline—to help you work faster and better! 


PortaCalc™ — Model 100 "electronic spreadsheet" with 14 column by 26 row workspace! 
Full use of the built-in function keys to save, load, screen print, report print, or to look 
behind the data at the formulas in use. EJ 


Full arithmetic operators including exponentiation, absolute value, integer, summation, 
and averaging. Calculations are done to 14 digits of precision and displayed up to 9 
digits. User selectable decimal place from none through seven—not just one, two, or 
floating! Formula replication is included to allow fast creation of worksheets. 


Worksheets may be saved, loaded, or merged using the computer's memory or 
cassette. Often used templates can be saved in memory for instant recall. 


Two powerful utility programs are included with PortaCalc at no extra 
charge! PortaDex'" is a data exchange program that allows reformatting 
PortaCalc files into the DIF format used by VisiCalc. PortaPrint'" is an 
enhancement to the Model 100's text editor, adding the ability to adjust 
left, right, and top margins, and page length. Page numbering, headers, 
centered lines, flush right justification, new page control, and more. 


Comes with extensive documentation in padded 3-ring binder. Includes 
tutorial, detailed reference section, and executive level sample templates. 
Fully illustrated with screen prints, examples, and hints. 


PortaStat " — Correlation, regression analysis, and descriptive statistics 
package, designed to be a working tool for today's businessman. 

Data can be input from cassette, memory, or keyboard. Interactive with 
PortaCalc data files! Thoroughly documented, includes tutorial. 





PortaFin " —Present value, net present value, future value, annuities, 
interest factors, loan constants, internal rate of return and more! This user- 
friendly package prompts you for the needed input data, then gives you 
the answer to your loan or investment problem! Interactive with PortaCalc 
files, allowing you to "read" cash flow data from memory. Keyboard or 
cassette input also available. 


РопаМах У" — The powerful ‘simplex’ method of linear programming. Find 
the optimum ‘mix’ for a given set of constraints. Interacts with PortaCalc 
files to avoid time-wasting repetitive data entry. Tutorial, examples, and 
bibliography included. 

PortaFolio'" — Stock and bond valuation, betas, Macaulay's duration, yield 
to maturity, bond swap calculations, and much more. All in an easy to use 
program, interactive with PortaCalc data files. Supplied with comprehensive 
instructions and reference manual. 


Porta Calc 


All Porta series programs are supplied on cassette and require 24K RAM. 
Pricing — PortaCalc is $69.95, all others are $44.95 each. 
If ordering direct, add $2.00 shipping and handling per order. 


Dealer inquires invited. тартар еме 
| Ме і 


Mode! 100 is à trademark о! Tandy Corp VisiCalc is a асетат of VisiCorp DIF is a trademars of 


біш line 





4510 W. Irving Park Rd. * Chicago, IL 60641 * (312) 286-0762 


You'll DO Better 


(Tino Delbourgo is a 13-year-old com- 
puter hobbyist who lives in Hobart, 
Tasmania, Australia. Не апа his 
younger brother, Daniel, and his father, 
Robert Delbourgo, who is a physics 
professor, have written and published a 
number of programs for both the Model 
100 and the Color Computer.) 
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With This 
TEXT Utility 


By Tino Delbourgo 


tions. It does have a few limitations, but because of the 

way that PoCo stores everything as files, new word processing 
power can nevertheless be added to the TEXT program. As a related 
issue, how often have you wanted to LLIST BASIC programs to a 
width of your choosing? The following program is very short and 
performs three functions which I hope you will find useful. 

The first verifies DO files which have been saved to tape. It is 
impossible to do this normally with the CLOAD? command; and 
unlike the CLOAD? command it just checks to see whether the file 
was saved properly — it does not compare it with what is currently in 
memory. Simply type in 1 from the menu and then a prompt will ask 
you for the filename of the program stored on tape. Just enter the 
name; no *CAS;" or *.DO" need be included. 

The second function will justify left and right margins of the printer 
output of a TEXT file. It will also give your text a margin. You must, 
of course, have the TEXT file stored in RAM for this function to 
work properly. Type in 2 from the menu, then enter the margin size, 
printer width and the filename of the TEXT RAM file. No "RAM:" 
or “.DO”please! 

Option 3 will LLIST a BASIC program in any printer column 
width. Just enter the width and the filename (no “RAM:” or *.DO") 
of the BASIC program. The BASIC program must have been stored in 
RAM and SAVEd in a SAVE"filename",A format beforehand. 


sk: TRS-80 Model 100 has very powerful word processing func- 


This is a good program to have stored 
permanently in RAM if you use DO 
files a lot. Good DOing! 


The listing: 


5 CLEAR1900 

7 üNERRORGOTOSCO 

10 CLS:PRINT@2,"DOing Utilities ~ by Тіп 
o Delbourgo":PRINTSTRING$(4Q,"*"); 

20 PRINT"TYPE:"sPRINTTAB(S) 5 "1. Verify f 
і] еѕ": РАІМТТАВ (5) ; "2. Justify printer ou 
tput"sPRINTTAB(S)3"3. LLIST in any print 
er width" 

30 PRINT: РКІМТЗРАСЕ$ (8) ; "Туре your choic 
e number "; 

40 AS=INPUT$(1): ONVAL (A$) GOTO60, 90,420 
50 6507040 

60 CLS:LINEINPUT"Filename:";F$ 

65 F$z"CAS:"*F$«",.DO" 

70 OPENF$ FOR INPUT A81 

75 PRINT"Found: ";F$ 

80 ІҒЕОЕ (1) THENCLOSE: END 

85 LINEINPUT#1 ,F4 

88 607080 

90 CLS:INPUT"Margin size":J: INPUT"Text w 
idth"sK 

95 LINEINPUT"Filename:";F$:F$zF$«",DO" 
100 HzQü:B$-"":LPRINT: LPRINTTAB(J) ; : OPENF 
$FORINPUTAS1 

110 IFEOF(1)THENLPRINT: CLOSE: END 

120 А$=ІМРОТ$ (1,1) 

125 ІҒА%-СНК%(10) ТНЕМ110 

150 IFASZCHR$(13)THENHZQO: LPRINTBS:LPRINT 
TAB(J)11:B$z"":GOTOI110 

140 B$sB$*6$:HzH*1:IFHXK ТНЕМІ10 

150 FORN=H TOISTEP-1 

160 С%-МІр%(В%,М,1):60508400:ІРЕК--ІТНЕМ 
NEXTN: LPRINTB$:HzQ:B$z"":LPRINTTAB(J) 3:6 
070110 

170 S$zLEFTS$(B$,N) 

180 IFRIGHT$(S$,1)=" "THENSS$ZLEFT$(S$,LE 
N(S$)-1) :G0TO180 

190 IFLEN(S$)zK ТНЕМ500 

200 IFLEFT$(S$,1)z2" "ТНЕМ250 

210 U=1 

220 60508590: IFERZÜTHENS$-LEFT$(8$,U-1)* 
" "+RIGHT$(S$,LEN(S$)-Ut1) :U=U+t1 

225 IFLEN(S$)=K ТНЕМ500 





Back Issue Availability 


All back issues sell for the single issue cover price of $3. In 
addition, there is a $1.50 charge per issue for postage and 
handling within the United States, Canada and Mexico. 
VISA, MasterCard, and American Express accepted. 
Kentucky residents please add 5 percent state sales tax. 


230 U=U+1: IFU>LEN(S$) THEN210 

240 6070220 

250 U-LEN(S$) 

260 GOSUB39@: IFER=QTHENS$=LEFT$(S$,U-1)+ 
" "*RIGHTS$(SS,LEN(S$) -U*1) :U=U-1 

265 IFLEN(S$)=K ТНЕМ300 

270 UzU-1: IFUC1THEN250 

280 650702680 

500 LPRINTS$:B$zRIGHTS$(B$,LEN(B$) -N) 

310 IFINKEY$=CHR$ (27) THENCLOSE: END 

320 LPRINTTAB(J); :HzZLEN(B$) :GOTO110 

390 C$-MID$(8$,U,1) 

400 IFC$z" "ORC$s","ORC$z"?"ORC$z"!"ORC$ 
="; "ORC$=" , "ORC$=": "ORCS=CHRS$ (34) THENER= 
QELSEER=-1 

410 RETURN 

420 CLS: INPUT"Printer width"; W 

450 LINEINPUT"Filename:";F$ 

440 F$-F$*".DO" 

450 OPENFSFORINPUTAS1 

455 B$z"" 

460 IFEOF(1)THENLPRINTB$: CLOSE: END 

470 A$-INPUT$(1,1) : IFA$SZCHRS(CIS) THENLPRI 
NTB$:GOTO0455 

480 IFA$=CHR$ (10) THEN460 

490 B$-B$*A$:1IFLEN(B$)zW THENLPRINTB$:6GO 
T0455 

495 650704680 

500 IFERR<>iBTHENERRORERRELSEPRINT"Verif 
y failed":CLOSE: END 


ЖЖ The Handicapper "Мк 


Use the power and portability of your Model 100 to 
improve your performance at the track—and we mean 
at the track! The Handicapper comes with separate 
programs for thoroughbred and harness tracks that 
apply sound handicapping techniques to produce 
rankings for the horses in each race. Use information 
readily available in the Racing Form or harness track 
program. Factors include speed, distance, track condi- 
tion, post position, past performance, jockey or driv- 
er's record and other attributes. Use it at home the 
night before or tote it with you to the track and hand- 
icap between races! Handicap an entire race in a few 
minutes and a whole card in less than an hour! List 
rankings to screen or printer. 24K version even builds a 
RAM file for the entire card! Includes harness and thor- 
oughbred programs, complete documentation and 
betting guide. State memory requirement when 
ordering. Only $49.95. 


Federal Hill Software 
825 William St. 
Baltimore, Md. 21230 


Ф 


i 
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New Friction Option 
For Printers 


When I was deciding to buy a printer, 
one of the most important aspects that I 
had to consider was whether | wanted 
the “Friction” option. All printers have 
the usual “Tractor” mechanism, and if 
you desire the added convenience of 
using single sheets of paper, such as sta- 
tionery, your personal letterhead or 
whatever, the cost is usually around 
$100 extra. 

Now, for those of you who have bit- 
ten your fingernails away completely 
because you now wish you paid the 
extra scratch for the friction feature, a 
cheaper (but sturdy) way to get the same 
results is available for any printer. It’s 
called the Paper Tractor. 

The Paper Tractor is a flexible plastic 
device that is inserted into your tractor 


mechanism and will carry your single 
sheets of paper through without any 
hassle. 

To use this handy device, you just 
place the paper you would like to use in 
and under the half-inch folds provided 
on the top, right and left hand sides of 
the "tractor." The fit is snug and the 
paper will stay firmly in place. Then just 
thread it over your printer sprockets as 
though it was your usual tractor-feed 
paper. 

You may align it at this point, check- 
ing to make sure that your print head is 
at the desired height on the paper. Then 
just print as normal. 

One precaution you should take while 
printing is to make sure that you do not 
go past the end of the paper and onto 
the device itself, or worse, onto the 
platen of your printer. If your printer 
has a "paper out" detector, it will still 
function as usual. 

Even though my printer has friction 
feed as a standard feature, | tried the 
Paper Tractor as described апа it worked 
beautifully. The samples І ran were at 
9600 Baud and bi-directional, which I 
thought might have had a negative 


effect because of the speed and irritation 
to the Paper Tractor, but it came out 
beautifully. 

After using the tractor a couple of 
times, I found that I could even print on 
the very last line of my samples since the 
Paper Tractor itself extends into the 
paper-out switch because of its length. 

The only inconvenience I can imagine 
is that if you intend to print an awful lot, 
the time needed to withdraw the Paper 
Tractor and insert new sheets of paper 
will slow things up a bit. 

The Paper Tractor is a handy com- 
plement for you non-friction printer 
owners. It handles up to 11 x 14 paper, 
will work with any printer, and can be 
used instantly by anyone. The docu- 
mentation provided does not actually 
explain how to use it, but if after look- 
ing at the photos provided you can't 
figure it out, you shouldn't be near a 
computer, anyway. 


(Paper Tractor Ltd., 1 South Fairview, 
Goleta, CA 93117, $11.95) 


—Steve Schechter 

















Plot Against Your Competition! 
with QuickPlot® 








We've just given the CGP-115 Color 
Plotter business status. With Quick- 
Plot, your TRS-80 or IBM-PC can 
produce high quality line-, bar-, and 
pie-charts in vivid color. Simple data 
entry and flexible chart formatting 
makes QuickPlot and the CGP-115 
Color Plotter the logical choice for 
the professional who wants to plot 
his profits—not spend them. 


















COMPANY XxYez 


MONTHLY SRLES 
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BEAST COAST CENTRAL | 
LOCATION | 
М10-МЕТ НЫЕ57 COAST | 





CERTIFICATION 
SEAL 









Now you have a friend in the software business. 











Complete QuickPlot Package Model 11/12/16 ........... $89 

Includes: Bar Chart, Pie Chart, Model 111/4 ............. $89 

and Line Graph. Data and chart Model100.............. $49 oy = 9 wi px 901 Embassy Square Blvd. 
formats save to disk for future  ІВМ-РС/ХТ ............. $89 OLUTION Louisville, KY 40299 
plotting. c o м Р a n у) (502) 491-6122 





Call or write to place your order or send for free 


TRS-80 and CGP-115 are registered trademarks of Tandy Corporation. PC and information. 


PC/XT are registered trademarks of IBM Corporation. 
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SOFTWARE 
Financial Analysis 
On The Model 100 


How many times have you wondered 
whether the yield quoted to you on a 
bond, a CD, or annuity was really accu- 
rate or even in the ballpark? Have you 
been told that the interest rate опа loan 
is only eight percent, only to find out 
later that it's really 15.4 percent? If you 
engage in financial transactions such as 
amortizations, interest, annuities, ог 
bond analysis, then this financial analy- 
sis package from York Software may be 
for you. 

Financial Analysis Package #1 comes 
on a cassette with a 16K version on one 
side and the various programs separ- 
ated into small enough packages to run 
on an 8K machine. The 16K version 
uses approximately 11 K plus overhead. 
If you have programs you really like to 
leave in the computer, then use the 8K 
versions. Ina couple of instances the 8K 
programs seemed to run slightly faster 
than the combined 16K version. There 
are four programs: amortization, com- 
pound interest, annuities, and bond 
analysis. In the 16K version, these pro- 
grams are accessed from a menu. For 
the 8K programs, you have to load each 
separately. What can these do for you? 

The well-documented manual of 23 
pages steps you through each analysis 
with examples. For the amortization 
program, one can calculate the equal 
payment amount, the original loan bal- 
ance, the number of payments, and the 
interest rate when supplied with menu 
requested information. Each menu has 
the maximum number of spaces (indi- 
cated by nines) for each entry. If you are 
entering, for instance, the principal 
amount, you are given 999999.99 to fill 
up. To enter 100.00, you must type 


000100.00. Counting the necessary zeros 
is a distraction if you are trying to hurry 
through. If you make a mistake in enter- 
ing the data, the program traps the 
errors, resets the data entry menu, and 
awaits your re-entry of the data. There 
is a soft beep to audibly notify you. 

The compound interest program will 
determine future values, present values, 
and compare interest rates when the 
frequency of compounding changes. 1 
entered last year's IRA contribution 
and plugged in 8.5 percent dividend for 
many years, as l am still young. It took 
approximately 3% minutes to compute 
the future value for 26 years, com- 
pounding daily. The manual forewarns 
that some calculations may take a long 
time since the programs are written 
exclusively in BASIC. What appears to 
be time consuming is two calculations; 
the first, the actual number of days, 
including leap years are calculated, and 
second, a rather large loop to compute 
dividends when compounding daily. If 
you purchase this package and decide to 
use a long time period, ] suggest you 
select compounding ona quarterly, semi- 
annually, or yearly basis to speed up the 
calculations. The loss in accuracy is 
barely noticeable. 

The third program is for calculating 
the final value or the amount to be de- 
posited on some frequency schedule if 
you're interested in annuities. Again the 
information needed to solve the pro- 
blems is entered through a menu driven 
screen. 

The last program determines the yield 
and the purchase amount of bonds. This 
program differs in its calculations from 
the compound interest program in that 
bonds are usually purchased at a dis- 
count or at a premium returning in 
some future time a guaranteed amount. 
This program selection takes the misery 
out of trying to figure it with a calculator. 


The financial analysis package should 
be of interest to real estate salespersons 
who often need to know exactly what 
the monthly payments are without re- 
sortingto the tables broken down to the 
nearest $1000 and У percent interest 
rate. The amortization program also 
works very well where consumer credit 
information is readily needed, such as 
used and new car dealers. If you are 
making investments in the bond market, 
this package of programs will give you 
figures to compare with the ones sup- 
plied by your broker. 

If you're involved with any of the 
financial analysis programs available in 
the package, you will find it worth your 
time to consider this package. You may 
find it a little slow running in the com- 
pound interest section, but for a BASIC 
program, this one runs very cleanly and 
is very nicely menu-driven both for the 
programs and the data entry sections. 
Тһе manual is very clear and has good 
examples to try. The package should be 
a welcome addition to the Model 100 
for those needing to solve interest and 
dividend type problems. 


(York Software, 2885 Tanglefoot Lane #8, 
Bettendorf, IA 52722, $39.00) 


— Vincent Lord 


New Products 








Rechargeable Battery 
System 


Now available for the rechargeable 
Model 100, NEC's PC-8201 A and other 
6-volt briefcase portables, is a light- 
weight, external battery system by Blue- 


PORTABLE COMPUTER DESK TOP STAND 


Improves Viewing and Typing Angle 


Briefcase Portable 


Mail Check or Money Order to: DISKUS PRODUCTS 6003 Bandini Blvd., Los Angeles, CA 90040. VISA or М/С call 
(213) 726-3088 The POCO STAND $17.95 plus $2.00 each unit Shipping & Handling — CA residents add 6.5% sales tax. 
Patent Pending. © 1983 DISKUS PRODUCTS For RUSH Delivery add $2.00 extra — U.P.S. Blue Label 
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The Rackseller 


ALABAMA 
Florence Anderson News Co. 
Madison Madison Books 
ALASKA 
Fairbanks Electronic World 
Fairbanks News Agency 
Kotzebue Arctic Bookstore, Inc. 
ARIZONA 
Phoenix Road Runner 
Computer Pro 
Scottsdale Softwareland Corp. 
Tucson Anderson News Co. 
CALIFORNIA 
Atwater Electro Brain 
Citrus Heights | Software Plus 
Half Moon Вау  Strawflower Electronics 
North 
Hollywood Levity Distributors 
Sunnyvale Computer Literacy 
CONNECTICUT 
Hartford The Aetna Life Club Store 
DELAWARE 
Wilmington Normar Inc.— The Smoke Shop 
FLORIDA 
Ft. Lauderdale | Software Connection 
Miami Newsrack 
Panama City | Computer Systems Group 
Pensacola Anderson News Co. 
Tallahassee Anderson News Co. 
Winter Park Independent Computer Systems 
GEORGIA 
Atlanta Guild News Agency 
Columbus Muscogee News Co. 
Trenton The Phone Line 
ILLINOIS 
Chicago Kroch's & Brentano's 
Jackson Street 
Kroch's & Brentano's 
Wabash Ave. 
Chicago Prairie News Agency 
Oakbrook Kroch's & Brentano's 
INDIANA 
Elkhart Elkhart City News & Book Store 
Indianapolis A— Computer Store 
Madison Arco Office Supplies 
Scottsburg Radio Shack of Scottsburg 


IOWA 

Davenport Interstate Book Store 
KANSAS 

Wichita Amateur Radio Equipment Co. 

Lloyd's Radio 

KENTUCKY 

Benton Anderson Electronics 

Pikeville Gus-Stan Enterprises 
LOUISIANA 

Slidell Radio Shack 
MAINE 

South Portland | Portland News Co. 
MASSACHUSETIS 

Littleton Computer Plus 

Marlboro Radio Shack 

Woburn Microcon Software Centers 
MICHIGAN 

Novi MI Software Dist., Inc. 

Rochester Rochester Book Center 
NEBRASKA 

Lincoln Hobby Town 
NEVADA 

Las Vegas Hurley Electronics 
NEW HAMPSHIRE 

Manchester Brookwrights 

Petersborough Radio Shack 

West Lebanon Verham News Corp. 
NEW JERSEY 

Hackensack Total Circulation Service 

Marmora Outpost Radio Shack 

Midland Park Software City 

Pennsville Dave's Electronic Radio Shack 
NEW MEXICO 

Albuquerque News and Bookstore 

Albuquerque Page One Newsstand 
NEW YORK 

Brooklyn Cromland, Inc. 

Johnson City Unicorn Electronics 

New York City || Usercom System, Inc. 
NORTH CAROLINA 

Cary It's Just For You, Inc. 
NORTH DAKOTA 

Fargo Computer Associates 
OHIO 

Cincinnati Softwarehouse 


Toledo Leo's 
Reitz Electronics, Inc. 
OREGON 
Eugene Libra Books, Inc. 
Medford John's News Stand 
Portland BO-Plus 
Roseburg Rainy Day Bookshop 
Tigard 80-Plus of Tigard 
PENNSYLVANIA 
Pleasant Hills Pittsburgh Computer Store 
SOUTH CAROLINA 
Greenville Palmetto News Co. 
North 
Charleston The Green Dragon 
TENNESSEE 
Antioch P.S. Computers 
Chattanooga | Anderson News Co. 
Knoxville Anderson News Co. 
Memphis Computer Center 
Software, Inc. 
Nashville Mosko's Book Store 
Smyrna Delker Electronics, Inc. 
TEXAS 
Austin Software & Things 
Dallas Micro Concepts, Inc. 
Elgin Homing Pigeon 
Ft. Worth A & A International 
Byteworks, Inc. 
RFI Electronics 
Irving Software Access 
WASHINGTON 
Blaine Compulit Dist. 
Richland C & J Electronics Computer Center 
Seattle Adams News 
WISCONSIN 
Appleton Badger Periodicals 
Janesville Book World 
Milwaukee Campus Corner 
Portage Sam's Electronics 
CANADA: 
ALBERTA 
Calgary Rainbow Software Services 
Edmonton Kelly's Software Distributors 
NOVA SCOTIA 
Halifax Atlantic News 


Also available at selected B.Dalton Bookseller stores in the United States and Canada. 








stem Productions. 

The batteries come in three sizes to 
suit an individual's needs. АП batteries 
are lightweight, palm-sized and fit into a 
briefcase or computer hard-case and 
come with an attaching 6-foot, 6-volt 
cable. 

The Prairie Power 8-ampere-hour unit 
can run the Model 100 continuously for 
over 150 hours (our last test gave 160 
hours). The 5.5 amp-hour battery sup- 
plies 100 hours of usable power. Finally, 
the 2.6 amp-hour unit supplies 50 hours 
of continuous power and is only slightly 
larger than a pack of cigarettes. 

The Prairie Power rechargeable units 
range in price from $21.95 (for 54 hour 
charge) to $34.95 (for over 150 hours of 
continuous operation). The battery 
charger is $10.95. 

Write Bluestem Productions, Box 334, 
Wayzata, MN 55391; or call (612) 471- 
7795. 


8K RAM Module 


Purple Computing has developed, 
and is delivering from stock, a new 8K 
RAM memory module for the Model 
100 and PC-8201 computers. According 
to the Purple Computing people, this 
new module functions exactly like the 
manufacturers’ memory modules and is 
designed as a replacement for those 
parts. The module provides 8,192 bytes 
of memory in a single dual inline pack- 
age. You can call them for information 
or for placing orders at (805) 987-4788; 
or write to Purple Computing, 4807 
Calle Alto, Camarillo, CA 93010. 


Carrying Case/ 
Work Station 


The Chip-Tote, by Kangaroo Video 
Products, is a carrying case for the 


Model 100, NEC PC-8201 and Epson 
HX-20 portable computers that doubles 
as a desk. 

It features a slim, fully foam-padded 
design that opens up into a one-piece 
work station. 

The stand-up utility top holds papers 
upright for easy reference, and inner 
pockets keep notebooks and notepads 
handy. A zippered pouch holds an AC 
adapter, acoustic coupler, modem cord 
and extra batteries. 

Chip-Tote comes with adjustable shoul- 
der strap and a hand strap. Kangaroo 
Video Products, Inc. specializes in design- 
ing and manufacturing carrying cases 
for sensitive electronic equipment. 

The Chip-Tote is made of tough, 
durable DuPont Cordura nylon in black 
or smoke gray. At $59.95, it's available 
from Kangaroo Video Products, Inc., 
9190 Manor Drive, La Mesa, CA 92041. 
Phone (619) 698-0230. 
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SAVE $120 








on the TRS-80 Model 100 with 8K RAM 


stock 426-3801 
Model 100 Cables Model 100 8K Memory 


CoCo to Model 100 d Upgrade Module 
CoCo to Model І, II, III, IV $69 95 
ж 


-- %24.95 


С-10 Tapes — any quantity 
49€ each 


For quick delivery call: each 





SPECTRUM PROJECTS 


93-15 86th Drive 
P.O. Box 21272 
PCM WOODHAVEN, NY 11421 
“ше (212) 441-2807 
pos $5 shipping and handling 
-Ү. residents add sales tax BBS #1 — (212) 441-3755 
Call our Bulletin Board for free Model 100 programs. BBS #2 — (212) 441-3766 


Now on line . .. 20 MEG. CORVUS HARD DISK DRIVE BBS #3 — (212) 441-5719 
BBS44- (212)441-5907 





A full line of top-quality S in virtually every 51/5" and 8" model, for compatibility with virtually every computer on the market. 
1 


Guaranteed to meet or exceed every industry standard, certified 100% error-free and problem-free, and to maintain its quality for at least 12 million passes 


(or over a lifetime of heavy-duty use). 
Contact Dennison Computer Supplies, Inc., 55 Providence Highway, Norwood, МА 02062 or call toll-free 1-800-343-8413. | Dennison | 


In Massachusetts, call collect (617) 769-8150. Telex 951-624 








